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1.   The  709^-1^01  Computer  Installation 
1.1.   Description 

1.1.1.   General 

The  IBM  709^-1^01  computer  installation  is  a  part  of  the  Department 
of  Computer  Science  at  the  University  of  Illinois.   The  709^-1401  computer 
system  operates  on  a  24-hour  day,  7  day  a  week  schedule.   This  schedule  is 
reduced  during  vacation  periods  and  during  those  weekends  when  the  work  load 
does  not  justify  operation.   Programming  is  on  an  open-shop  basis;  processing 
of  programs  is  on  a  closed  shop  basis.   The  major  portion  of  the  work  is  done 
under  the  control  of  an  executive  system,  P0RTH0S. 
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1.1.2.   Organization 

The  IBM  709^-1^01  facility  occupies  a  portion  of  the  first  floor  of 
the  Engineering  Research  Laboratory  (ERL)  on  the  Urbana  campus.  All  elements 
of  the  staff  may  be  located  there. 


Administration  Office 

Room 

168 

Extension 

3-O969 

Information  Services 

168 

3-0969 

Operations  Supervisor 

111c 

3-W9 

System  Consultants 

111b 

3-^38^+ 

Library 

165 

3-2814 

Program  Development 

153A,  158 

,    160, 

162,  l6k 

and 

3-1772 
3-3539 

709^-  Computer  Room 

157 

1^-01  Computer  Room 

165 

Routing  Office 

110a 

3-3063 

Keypunch  Rooms 

l6l  and  165 

3-3102 

Hourly  Status  Report  ( 

tape  recor 

led) 

3-163^ 

Further  directory  information  appears  in  Appendix  ik. 
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1.2.   Programming  Services 

1.2.1.   System  Consulting 

As  computer  speed  and  complexity  increase,  the  probability  of  user 
error  through  subtle  misuse  of  the  system  becomes  increasingly  higher.   Since 
the  majority  of  users  utilize  the  computer  facilities  as  a  tool  (in 
contrast  to  considering  the  computer  itself  as  the  main  object  of  interest), 
it  is  desirable  to  make  the  use  of  this  tool  as  efficient  and  pleasant  as 
possible  with  the  resources  available.   The  average  user  is  not  expected 
to  become  an  expert  on  the  internal  workings  of  the  operating  system;  on 
the  other  hand,  the  Department  of  Computer  Science   cannot  successfully 
undertake  to  do  programming  for  users.   A  realistic  approach  is  to  provide 
guidance,  in  the  form  of  consultants,  for  individual  users  who  experience 
difficulties  that  they  cannot  overcome  by  their  own  efforts.   This  implies 
that  before  any  user  approaches  the  consulting  staff,  he  should  have 
exerted  a  bona  fide  effort  toward  overcoming  his  difficulty  on  his  own. 
The  Laboratory  realizes  that  guidance  concerning  the  use  of  the  system 
cannot  be  approached  casually;  hence,  a  consulting  staff  and  a  permanent 
consulting  room,  111b  ERL,  have  been  set  up.   A  consultant  is  available 
in  111b  Engineering  Research  Laboratory  (ERL)  from  8  AM  to  6  PM  Monday  through 
Friday;  from  7  PM  to  10  PM  on  Monday  through  Thursday;  and  Saturday  from 
9  AM  to  1  PM.   This  schedule  is  usually  reduced  during  vacation  periods. 
Any  deviation  from  this  schedule  will  be  posted  on  the  door  of  the  consulting 
room,  111b  ERL. 

The  use  of  consultants  cannot  be  expected  to  substitute  for  a  careful 
reading  of  the  available  manuals  and  notices.   The  ultimate  responsibility 
for  the  success  of  any  programming  project  must  lie  with  the  user. 
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1.2.2.   System  Development 

The  Department  of  Computer  Science  is  designing  and  writing  an  automatic 
operating  system,  PORTHOS,  which  is  able  to  take  advantage  of  the  speed  and  size 
of  the  709^+  computer.   This  system  owes  much  to  that  in  use  at  the  Computation 
Center  of  the  University  of  Michigan  which  served  as  an  initial  nucleus  and 
point  of  departure.   The  aims  of  this  evolving  system  are  to  facilitate  user 
needs  (input  and  output  conversion,  dynamic  and  post-mortem  dumps,  etc.),  to 
minimize  human  intervention,  to  automate  the  updating  and  checking  of  laboratory 
records,  to  enable  fast  and  direct  communication  between  the  user  and  the  computer, 
and,  above  all,  to  maintain  maximum  flexibility  and  efficiency. 

The  following  user -oriented  features  of  the  system  are  now  available: 

1.  A  relocatable  variant,  SCATRE,  of  the  SHARE  Compiler -Assembler 
Translator,  SCAT; 

2.  FASTRAN,  a  quick-compile  version  of  FORTRAN  II } 

3.  The  IBM  Formula  Translator  II,  FORTRAN  II  (algebraic 
compiler  language); 

k.      An  Algorithm  Language  Translator,  ALGOL  (algebraic 
compiler  language); 

5.  The  University  of  Michigan  Algorithm  Decoder,  MAD 
(algebraic  compiler  language); 

6.  Information  Processing  Language  -  V,  IPL-V 
(a  list  processing  interpreter); 

7.  SNOBOL,  (a  symbol  manipulation  language); 

8.  An  extensive  subroutine  library  accessible  by  all  of  the 
above  four  translators; 

9«   Dump  routines  to  aid  in  program  checkout; 

10.  Input/Output  routines  which  allow  efficient  use  of  magnetic 
tapes  with  minimum  invonvenience  to  the  user; 

11.  The  ability  to  execute  in  any  desired  order  or  frequency  the 
various  segments  of  a  multiple  core-load  job; 

12.  Routines  to  simplify  use  of  the  1301  disk  storage  equipment; 

13.  SPS/90,  (a  7094  program  to  generate  1^01  SPS  code). 
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The  inclusion  of  more  than  one  algebraic  language  translator  is  a  result  of 
the  recognized  complementary  features  of  these  compilers.   For  example, 
FORTRAN  II  has  a  restricted  source  language,  while  MAD's  is  quite  flexible; 
MAD ' s  compilation  time  averages  ten  times  faster  than  FORTRAN'S;  but  on  the 
other  hand,  FORTRAN'S  object  program  in  general  contains  20  per  cent  fewer 
instructions  and  may  operate  up  to  twice  as  fast  as  MAD's.   Therefore,  users 
should  take  these  facts  into  consideration  when  choosing  an  algebraic  source 
language  for  their  problems;  for  example,  choosing  MAD  for  short,  infrequently 
run  but  frequently  compiled  problems,  and  FORTRAN  II  for  exceptionally  long- 
running  problems. 

A  new  feature  of  the  P0RTH0S  system  is  a  FORTRAN  II  compiler  called 
FASTRAN,  which  provides  greatly  increased  compilation  speed,  more  accurate 
error  detection  and  diagnosis,  and  a  number  of  additional  useful  features 
compared  to  the  IBM  FORTRAN  compiler. 

ALGOTj  has  certain  unique  advantages  such  as  automatic  dynamic 
storage  allocation  and  use  in  expressing  complicated  logical  relationships, 
but  does  not  lend  itself  readily  to  tape  manipulations.   Compilation  time 
averages  one  sixth  as  long  and  running  time  for  object  programs  produced 
by  the  compiler  twice  as  long  as  those  F0RTRAN-compiled  programs.   The 
version  of  709^-  ALGOL  in  use  was  written  and  developed  as  a  joint  project 
involving  the  Department  and  the  ALCOR  group. 

An  evolving  statistical  package,  STATMON,  is  included  in  the 
system.   This  package  will  ultimately  consist  of  a  control  program  and  an 
extensive  library  of  statistical  routines. 

The  system  is  being  designed  in  such  a  manner  as  to  allow  the 
addition  of  other  facilities  as  they  become  available,  such  as  compilers 
like  COBOL,  COMTRAN;  sort  and  report  generators;  computer  class  grading 
and  processing  programs;  etc. 
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1.2.3*  Associated  Programmers 

Due  to  the  staff  and  budgetary  limitations,  the  Department  of  Computer 
Science  cannot  accept  the  responsibility  of  providing  service  programming 
on  the  applied  problems  of  users.   It  is  not  even  in  a  position  to  guarantee 
the  effective  recruiting  of  competent  programmers  who  can  be  hired  by  users. 
On  the  other  hand,  it  is  willing  to  act  as  a  clearing  house  in  order  to  put 
persons  wishing  to  program  in  contact  with  persons  desiring  programming 
assistance.   This  is  done  by  maintaining  a  file  of  information  forms  of  those 
persons  who  have  announced  to  the  Department  their  willingness  to  accept 
programming  employment.   Any  persons  wishing  to  be  listed  as  available  for  such 
employment  should  contact  the  secretary  in  room  l68  of  the  Engineering  Research 
Laboratory.   Any  person  wishing  to  hire  programmers  is  invited  to  inspect  this 
file  by  contacting  the  secretary. 

In  order  to  keep  the  file  up  to  date,  those  programmers  who  obtain 
positions  should  inform  the  secretary  that  they  are  no  longer  available  so  that 
the  information  sheets  can  be  transferred  to  the  inactive  file. 
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1.3.   Library  Services 

I.3.I.   Program  Documentation 

Program  documentation  maintained  at  the  709^-1^01  installation 
includes  both  locally  generated  programs  and  SHARE*  programs.   In  the  former 
case,  the  documentation  normally  includes: 

a)  program  write-up  (description) 

b)  source  deck 

c)  relocatable  column  binary  cards. 

In  the  latter  case,  the  documentation  consists  of  program  abstracts  and 
descriptions  in  loose  leaf  form.   The  SHARE  abstracts  may  be  examined  in 
Room  168  ERL  from  8  AM  until  12  noon  and  from  1  PM  until  5  PM,  Monday 
through  Friday;  and  in  the  consulting  room,  111b,  during  normal  consulting 
hours,  as  stated  in  section  1.2.1.   The  SHARE  abstracts  can  also  be  examined 
at  the  DCS  library,  203  DCL. 


An  organization  of  users  of  IBM  computers. 
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1.3-^.   The  Mailing  List 

A  mailing  list  is  maintained  by  the  librarian,  and  a  copy  of  every 
document  published  by  the  709^-1^01  installation  for  users  is  mailed  to  every 
individual  on  the  list.   It  is  vital  that  every  user  who  has  need  for  this  manual 
be  on  the  mailing  list,  since  it  will  be  kept  up  to  date  by  providing  updated 
pages  to  every  manual  holder.   The  updated  pages  will  contain  portions  of  the 
Information  Bulletin  which  appears  from  time  to  time.   A  user  may  be  placed  on 
the  mailing  list  simply  by  so  requesting  at  the  desk  in  room  165  ERL. 


Date : 

5/V65 

Section: 

1.3.^. 

Page: 

1 

Change : 

1 

Port ho s  Manual 

1.3-5'   Information  Bulletins 

The  Department  of  Computer  Science  publishes  an  Information  Bulletin, 
which  is  serially  numbered  with  subnumbered  items.   Each  Information  Bulletin 
has  its  items  distributed  among  three  sections.   The  General  section  contains 
information  about  the  Department  or  information  common  to  all  computing  systems. 
The  IBM  709^-  System  and  ILLIAC  II  System  sections  contain  information  particular 
to  the  indicated  computers. 

Each  item  is  published  on  separate  sheets  so  that  the  entire 
Information  Bulletin  can  be  separated  and  the  individual  items  filed  or 
inserted  in  appropriate  Department  manuals. 

Copies  of  these  Information  Bulletins  are  obtainable  from  the  Program 
Librarian  in  room  165  ERL. 
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2.1.2.   Refunding  of  IBM  709^  Time  Due  to  System  or  Machine  Failures 

2.1.2.1.   In- system  Jobs 

Prior  to  January  1,  19£>5  no  procedures  were  required  for  the  refunding  of 
computer  time  due  to  failures  of  either  the  system  or  the  machine.   Since  time 
was  free,  reruns  could  be  readily  obtained.   Even  for  problems  which  were  billed, 
an  excess  of  running  time  (due  to  such  failures)  beyond  that  time  for  which  funds 
existed  could  be  accommodated  by  granting  additional  free  time.   However,  since 
all  production  time  is  now  billed,  an  excess  running  time  due  to  system  or  machine 
failures  could  easily  detract  from  the  successful  completion  of  a  given  problem 
within  its  allotted  budget.   Hence,  procedures  must  be  and  are  being  implemented 
which  will  allow  such  adjustments  to  be  made  automatically  and  with  both  minimum 
cost  and  inconvenience. 

1.  The  P0RTH0S  Monitor  is  being  modified  so  that  any  refunded  time  for 
past  failing  runs  can  be  entered  as  "free  time"  remaining  for  that 
problem.   On  subsequent  runs  this  "free  time"  will  be  used  before 
continuing  on  into  the  block  of  allotted  chargeable  time  remaining. 
An  accounting  of  this  remaining  free  time  will  appear  on  the  output 
of  each  job.   The  amount  of  such  free  time  run  on  each  problem  will 
appear  on  the  summary  information  sent  to  each  department  every 
month. 

2.  All  applications  for  time  refunds  must  be  handled  through  the 
consultants  and  will  be  considered  only  upon  presentation  of  all 
original  unaltered  materials  pertaining  to  the  run.   (input 
program  decks,  data  decks,  output,  dumps,  etc.) 

3«   In  trying  to  understand  a  given  failure,  a  consultant  must  often 
trace  the  flow  of  the  job  through  the  system  and  must  check  on 
system  and  machine  conditions  at  that  time.   If  too  much  time  has 
elapsed  since  the  job  was  run,  this  becomes  either  too  difficult  or 
impossible.   Therefore,  applications  for  refunds  of  time  can  be 
considered  only  if  presented  within  one  week  after  the  job  was  run. 

k.      It  must  be  realized  that  processing  and  application  for  a  time  refund 
will  require  the  time  of  a  consultant  which  in  turn  involves  expenditur 
which  go  into  making  up  the  computer  rate.   Giving  too  much  considerati 
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to  too  many  small  applications  will  only  drive  the  rate  up  and  achieve 
a  state  of  diminishing  returns.   It  should  further  he  realized  that  even 
every  successful  computer  run  involves  a  small  amount  of  system  overhead 
time  which  is  incorporated  into  the  billed  time.   In  addition,  the 
automatic  monitor  procedure  mentioned  in  Item  1  above  can  only  deal  with 
a  minimum  time  of  one  minute.   All  these  considerations  argue  for  the 
establishment  of  a  lower  limit  of  one  minute  of  computer  time  which  must 
be  exceeded  before  consideration  can  be  given  to  an  application  for  a 
time  refund. 

5.  A  time  refund  can  be  made  only  if  it  can  clearly  be  demonstrated  that 
the  run  failed  due  to  errors  in  the  operating  system,  to  malfunctions 

of  the  IBM  709^~1^01  hardware,  or  to  errors  on  the  part  of  the  operating 
staff. 

6.  The  consulting  staff  is  authorized  to  refund  up  to  5   minutes  of  time  in 
those  cases  which  clearly  meet  the  conditions  in  Item  5  above. 

7-   In  cases  of  doubt  pertaining  to  applications  for  refunds  of  less  than 
5  minutes  or  in  all  cases  involving  more  than  5   minutes,  the  consulting 
staff  will  have  to  seek  the  advice  of  the  Chief  Consultant  and  possibly 
other  members  of  the  staff.   Hence,   the  final  disposal  of  such  cases 
will  require  more  time. 

8.   The  situation  of  SSUPAC  within  the  operating  system  must  be  regarded 
as  special.   All  other  subsystems  within  the  operating  system  are 
maintained  by  and  are  the  responsibility  of  this  department.   Errors 
in  them  are  deemed  to  be  a  valid  reason  for  time  refunds.   However, 
SSUPAC  is  not  maintained  by  this  department.   If  it  can  be  demonstrated 
that  the  operating  system  turned  control  over  to  SSUPAC  and  that  the 
error  occurred  subsequent  to  this,  then  an  application  for  refund  of 
time  can  be  considered  only  if  it  can  be  clearly  demonstrated  as 
being  the  result  of  a  hardware  error.   System  errors  in  the  SSUPAC 
subsystem  should  be  called  to  the  attention  of  the  Research  Branch 
of  the  Statistical  Service  Unit. 
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2.1.2.2.   Relinquish  Jobs. 

The  Department  cannot  accept  responsibility  for  the  programming 
systems  in  use  during  relinquish  jobs  since  it  has  no  direct  knowledge  of 
what  programs  are  being  used  or  how  they  are  being  used.   Further,  the 
consulting  staff  is  not  in  a  position  to  properly  diagnose  failures  on  such 
jobs.   Therefore,  no  time  refunds  can  be  made  on  relinquish  jobs  except  in  clear 
cases  of  hardware  malfunction  as  verified  by  the  IBM  maintenance  group. 
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2.2.3'   Entries  on  the  Problem  Specification  Form 

The  Department  offers  the  services  of  its  consulting  staff  to  aid  in  the 
filling  out  and  checking  of  this  form.   Hence,  the  form  should  be  returned  to 
a  Consultant  in  Room  111b  ERL  during  the  normal  consulting  hours.   Forms  may 
be  returned  to  Room  110a,  ERL   or  even  mailed  to  the  Department.   However, 
this  can  cause  needless  and  frustrating  delay  since  the  forms  will  still  have 
to  be  forwarded  to  a  Consultant  for  checking.   Furthermore,  in  case  of  error, 
forms  must  be  returned  by  mail.   THIS  FORM  SHOULD  BE  PREPARED  AT  THE  TIME  OR 
BEFORE  WORK  ON  THE  PROBLEM  STARTS  RATHER  THAN  AT  THE  TIME  CODE  CHECKING  STARTS. 
SINCE  THE  FORM  MUST  BE  APPROVED,  KEYPUNCHED,  READ  INTO  THE  MONITOR  AND  RETURNED 
BY  MAIL,  PLEASE  ALLOW  AT  LEAST  ONE  WEEKo 

Various  entries  on  the  Problem  Specification  sheet  are  discussed  below. 

a)  Names.   The  name  of  the  prime  user  and  associated  names,  last  name 
first,  are  the  names  which  will  be  punched  into  the  Problem  Run  card  (see  section 
U.2.2.1.)  whenever  a  run  is  made  on  the  computer  for  the  particular  problem 
specification  number  being  sought.   No  names  other  than  these  will  be  acceptable 
with  that  number.   The  names  on  the  Problem  Specification  and  the  Problem  Run 
Card  must  be  identical;  that  is,  the  name  JACK  J0NES  is  unacceptable  on  a 
Problem  Run  Card  if  J0NES,  J.F.  appears  on  the  Problem  Specification  sheet.   The 
names  may  be  up  to  18  characters,  including  blanks,  in  length.   If,  during  the 
lifetime  of  a  given  problem  specification  number,  names  of  users  are  to  be 
added  or  deleted,  then  the  user  should  fill  out  a  Request  for  Change  in  Problem 
Specification  form  (see  section  2.2.U.)» 

A  maximum  of  eight  names  other  than  that  of  the  prime  user  can  be 
accommodated.   On  thesis  problems,  the  prime  user  is  the  thesis  candidate. 

b)  Department.   The  name  of  the  department  can  be  up  to  six  characters, 
left-justified,  in  length.   That  is,  if  there  are  less  than  six  characters  in 

the  departmental  designation,  the  blanks  go  to  the  right.   A  standard  list  of 
abbreviations  of  University  departments  appears  as  Appendix  5-   The  standard 
code  must  be  used.   If  no  standard  code  exists  for  the  department  of  the  user 
completing  the  form,  then  he  should  write  the  full  name  of  his  department  in 
field  b  even  though  it  may  take  more  than  6  characters.   A  standard  code  will 
then  be  assigned  to  the  department  by  the  Department  of  C6mputer  Science. 
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c)  Education  and  Training.   If  this  is  an  application  for  a  class 
problem.,  the  number  of  the  course  must  be  included.   Three  characters  are 
allowed.   The  department  of  the  course  is  designated  in  the  department  blank 
above.   Section  and  Problem  Number  are  right- justified  in  their  2-character 
fields.   For  class  problems,  only  the  instructor's  name  need  appear  on  the 
Problem  Specification  form  (as  the  Prime  User).   The  students'  names  need 
not  be  submitted.   A  description  of  class  problems  is  useful  and  would  be 
appreciated.   However,  this  application  can  be  used  to  apply  to  all  problems 
in  a  given  course  by  so  noting  on  the  reverse  side  of  the  application.   No 
special  requirements  may  be  requested  and  all  problems  assigned  should  fall 
within  the  established  code-check  limits.   Class  problems  expire  at  the  end  of 
the  semester  in  which  the  Problem  Number  is  first  used. 

d)  Programming  Systems.  Presently,  the  available  systems  are: 
FASTRAN,  MAD,  ALGOL,  FORTRAN,  SSUPAC,  IPL-V,  SNOBOL,  SCATRE,  and  STATMON. 
(See  section  5>  Programming  Systems), 

e)  Total  Time.   The  hourly  time  required  may  not  exceed  ^h6   hours 
and  includes  translating  ( SCATRE,  MAD,  etc.  )  and  dump  time  used  during  code- 
checking  as  well  as  production  running.   When  the  estimated  time  for  the 
problem  has  been  nearly  consumed  (hourly  time,  or  months,  whichever  occurs 
first),  messages  will  be  printed  on  the  output  informing  the  user  that  his  time  is 
elapsing.   If  he  needs  more  time,  he  must  fill  in  a  Request  for  Change  in 
Problem  Specification..   The  expiration  date  of  any  given  Problem  Specification 
Number  is  calculated  from  the  number  of  months  requested  and  the  date  of  the 
first  run  in  the  following  manner: 

1.  If  the  date  of  the  first  run  is  on  or  before  the  15th  of  the 
month,  the  date  of  the  first  run  is  considered  to  be  the  first 
day  of  that  month. 

2.  If  the  date  of  the  first  run  is  after  the  15th  of  the  month, 
the  date  of  the  first  run  is  considered  to  be  the  first  day  of 
the  following  month. 

f)   Billing  Information.   Each  problem  (except  Education. Training) 
must  provide  the  requested  information  so  that  the  time  used  can  be  billed  at 
the  current  rate.   The  signature  of  an  authorized  departmental  officer  must  appear 
to  certify  that  the  requisite  funds  have  been  allocated. 
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g)  This  space  is  provided  for  a  departmental  authorized  signature 
for  problem  specifications  pertaining  to  Education/ Training.   For  such  problems, 
section  f)  above  should  be  left  blank. 

h)  Special  Requirements.   The  standard  operating  procedures  of  the 
operating  system  are  explained  in  Section  h.      Certain  deviations  from  these 
may  be  permitted  while  still  operating  within  the  system.   The  items  under 
"Special  Requirements"  specify  the  possible  deviations  which  the  user  may 
request. 

i)  Magnetic  Tapes.   Occasionally,  a  problem  will  require  the  saving 
of  data  tapes  from  run  to  run.   When  this  is  anticipated,  the  user  may  acquire 
these  tapes  in  one  of  three  ways:   he  may  use  tapes  owned  and  scored  by  the 
Department;  he  may  lease  new  tapes  from  the  Department  to  be  stored  by  the 
Department ;  or  he  may  buy  tapes  elsewhere  and  store  them  himself.   (see  section 
2.U.2.  for  discussion  of  magnetic  tape  policies). 

j)   Low  Density.   Magnetic  tapes  generated  elsewhere  may  have  information 
written  on  them  at  densities  of  200  or  55^  characters  per  inch  (cpi).   The 
standard  density  of  all  tapes  in  use  at  the  Department  of  Computer  Science  is 
800  cpi.   A  user  must  have  low  density  permission  to  use  tapes  with  200  or  556  cpi,  T 
permission  should  not  ordinarily  be  requested  for  the  purpose  of  generating 
low  density  tapes  unless  tapes  are  being  generated  to  be  sent  elsewhere, 
where  low  density  tapes  are  required.   In  such  a  case,  one  such  permission 
will  be  granted  at  the  time  it  is  needed,  and  on  a  single-run  basis.   If  the 
tapes  need  to  be  read  more  than  once,  they  should  be  copied  onto  another  tape 
at  the  high  (standard)  density.   The  user  should  see  a  consultant  in  Room  111b 
ERL  to  obtain  such  permission. 

k)  Copies  of  Printed  Output.   If  the  user  will  require  more  than  one 
copy  of  any  printed  output  generated  by  his  problem,  he  should  indicate  the 
maximum  number  of  copies  he  will  need  at  that  time.   This  applies  to  listings 
of  his  program  as  well  as  answers  generated  by  his  program. 

If  the  requirement  for  multiple  copies  is  an  occasional  one,  and 
multiple  copies  are  not  required  at  every  run,  the  single-run  multiple  copy 
permission  can  be  obtained  from  a  consultant  in  Room  111b  ERL,  and  no 
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reference  need  be  made  to  multiple  copies  on  the  Problem  Specification  form. 
If  more  than  10  copies  of  more  than  20  pages  are  desired,  the  1^01  should  be 
loaded  with  special  multilith  forms  and  output  placed  directly  on  them.  The 
desired  number  of  copies  can  then  be  run. 

m)   Full  Dump.   Users  will  ordinarily  require  (and  receive)  dumps  of 
the  regions  which  their  program  used.   In  some  unusual  cases,  it  may  be 
necessary  to  dump  also  the  regions  occupied  by  the  System  Execution  Coordination 
Routines  (see  section  6.2.).   In  such  cases,  a  $  FULL  DUMP  control  card  (see 
section  4.2.2.2.)  and  permission  are  both  required.   Full  dump,  then, implies  a 
dump  of  the  entire  core.   Requests  for  single-run  full  dumps  are  considered  by 
the  consultants  in  Room  111b  ERL  (see  section  1.2.1.). 

n)   Special  Cards  and  Special  Forms.   All  output  (punched  and  printed) 
is  processed  on  the  1^-01.   If  special  cards  or  forms  are  needed,  the  operator 
must  have  special  instructions  for  changing  the  forms  before  processing  the 
output  from  the  problem  (see  section  4.2.4.5.)  and  must  make  arrangement  with 
the  computer  supervisor,  Room  111c,  ERL. 

p)   Own  I/O  Programming.   Users  will  usually  find  the  system-provided 
I/O  subroutines  adequate  for  their  needs.   Permission  for  own  I/O  programming 
will  be  permitted  when  necessary. 

q)  Relinquishment.   If  the  user's  program  cannot  be  run  under  system 
control,  then  provision  is  made  to  turn  over  the  computer  to  the  user's  program. 
The  user  is  then  completely  responsible  for  all  phases  of  programming  and  for 
instructing  the  operator  (see  section  4.3*  )• 

r)   CRT  Frames.   The  maximum  field  size  for  the  total  number  of  CRT 
film  frames  for  a  problem  is  5  digits.   The  number  of  frames  to  be  photographed 
must  be  right-justified. 

A  copy  of  the  Problem  Specification  form  is  included  in  this 
manual  as  Appendix  4. 
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2.2.4.   Changes  in  the  Problem  Specification 

Often  it  becomes  necessary  to  change  a  Problem  Specification  description 

sometime  during  the  life  of  that  problem.   Changes  may  become  necessary  if  the 

problem  being  undertaken  grows  or  changes  so  that  the  original  description  or 

request  should  be  modified  or  extended,  the  problem  needs  more  time,  "the      u 

need  to  reserve  tapes  arises  or  other  special  features  of  the  operating  system 

become  necessary. 

It  is  a  property  of  the  PORTHOS  Operating  System  that  all  such  information 

must  be  incorporated  into  and  stored  by  the  Monitor  program.   Hence,  any  time  a 

problem  specification  changes  it  is  necessary  to  modify  tables  of  information  in 

the  Monitor  so  that  the  new  and  different  set  of  boundary  conditions  to  be  applied 

to  the  problem  are  known  to  the  Monitor. 

In  order  to  simplify  this  change  procedure,  a  form  is  provided  which  is 
almost  identical  to  the  original  Problem  Specification  form.   Thus,  the  user  is 
free  from  the  inconvenient  necessity  of  filling  in  a  complete  new  Problem 
Specification  form.   Changes  can  be  simply  noted  on  this  new  form. 

The  same  formats  and  justification  within  fields  should  be  followed  on 
this  form  as  in  the  original  Problem  Specification  form  (see  Problem  Specification 
Instructions  attached  to  every  Problem  Specification  form  and  see  section  2.2.3«)« 

Each  problem  specification  change  should  be  submitted  to  the  head  of 
the  respective  department  or  his  designated  representative  for  signature  prior 
to  submission  to  the  Department  of  Computer  Science. 

The  Department  offers  the  services  of  its  consulting  staff  to  aid  in 
the  filling  out  and  checking  of  this  form.   Hence,  the  form  should  be  returned 
to  a  consultant  in  Room  111b  ERL  during  the  normal  consulting  hours.   Forms  may 
be  returned  to  :  Room  110a   ERL   or  even  mailed  to  the  Department.   However, 
this  can  cause  needless  and  frustrating  delay  since  the  forms  will  still  have 
to  be  forwarded  to  a  Consultant  for  checking.   Furthermore,  in  case  of  error, 
forms  must  be  returned  by  mail. 

A  copy  of  the  Request  for  Change  in  Problem  Specification  form  is 
included  in  this  manual  as  Appendix  6. 
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2.2.5«   Problem  Abstracts 

The  purpose  of  t  le  problem  description,  or  abstract,  is  two -fold.   First, 
it  provides  the  Department  of  Computer  Science  with  a  means  of  knowing  for  what 
purpose  the  computing  equipment  is  being  used,  so  that  internal  programming 
efforts  can  be  directed  toward  fulfilling  needs  of  the  users:  and  second,  it 
provides  a  written  record  of  the  use  of  the  facility.   It  is  the  intention  of 
the  Department  of  Computer  Science  to  include  each  new  problem  abstract  (as  it 
appears  on  the  associated  Problem  Specification  form)  in  the  Quarterly  Technical 
Report  of  the  Department  of  Computer  Science. 

Examples  of  Problem  Abstracts  as  they  have  appeared  in  the  Technical 
Progress  Report  appear  below.   Each  abstract  title  is  preceded  by  an  eight  digit 
identification.   The  first  three  digits  are  merely  an  internal  sequence  number; 
the  last  five  constitute  the  Problem  Specification  number. 

633-3^058     Electrical  Engineering.   Language  Analysis.   The  rank-frequency 
relationship  of  word  occurrences  in  various  natural  language  corpi  produced 
under  constraints  of  several  types  will  be  studied.   The  major  tool  will  be 
a  routine  recently  developed  w.iich  accepts  natural  language  corpi  from  punched 
cards,  compiles  a  vocabulary  organized  according  to  both  word-length  and  initial 
letter  and  outputs  a  record  of  the  input  sequence  displaying  the  vocabulary 
parameters  and  a  serial  number  for  each  word  from  which  tne  entire  material  may 
be  recovered  if  desired.   Detailed  provisions  are  included  for  handling  numerical 
or  algebraic  inputs. 

183-39063     Civil  Engineering  391-   Problem  1.   Traverse  Closure.   This  problem 
is  designed  to  familiarize  students  with  the  Department  of  Computer  Science  system. 
The  traverse  closure  problem  discussed  in  class  is  used  as  an  example.   By  simple 
geometric  relations  and  logical  decisions,  the  sums  of  x  and  y  components  of  an 
arbitrary  number  of  line  segments  are  obtained.   A  complete  deck,  including 
control  cards,  source  program,  and  data  is  supplied,  and  the  student  has  only 
to  punch  his  ID  card.   The  output  is  used  to  discuss  the  details  of  the  PORTHOS 
system. 
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2. 3*2.   Notices  to  Users  Concerning  Lapsing  Time 

Information  concerning  the  total  approved  running  time  and  the  calendar 
duration  concerning  each  active  problem  specification  number  is  stored  and  retained 
by  the  Monitor.   These  quantities  are  checked  and  updated  on  each  computer  run 
of  the  problem,  and  an  indication  of  remaining  times  are  given  on  the  output  of 
each  run.   The  user  is  thus  cautioned  to  reapply  for  additional  time  (if  needed), 
using  the  Request  for  Change  in  Problem  Specification  form,  which  may  then  be 
completed  before  the  actual  lapse  of  either  of  the  originally  approved  times. 
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2.3* 3*   Department  Reports 

2.3*3*1*   Internal  Reports 

The  time  cards  referred  to  in  2.3*1*  are  used  to  prepare  an  extensive 
set  of  records,  kept  on  file  within  the  Department.   These  list  each  run 
(with  information  discussed  in  2.3*1.)  made  on  the  computer,  as  well  as  summary- 
information  totaled  by  user  name,  problem  specification  number,  department,  etc. 
This  information  is  used  to  create  further  reports,  to  resolve  questions 
concerning  how  the  equipment  was  used,  monitor  the  system,  etc. 

2.3.3.2.  The  Technical  Progress  Report 

Each  quarter  the  Department  publishes  and  widely  circulates  its 
Technical  Progress  Report.   One  section  of  this  pertains  to  the  IBM  709^-1^-01 
computing  system.   This  part  contains: 

a)  General  information  about  the  system  and  descriptions  of  all  new 
Library  Routines. 

b)  Abstracts  of  all  new  Problem  Specifications  submitted  during  the 
month  (see  section  2.2.5*  )• 

c)  Information  on  usage  of  the  1^-01's  and  709^+  f°r  ^he  month.   This 
consists  of  a  general  breakdown  of  time  spent  on  each  machine  on 
each  of  several  functions,  error  counts  and  causes  for  each  machine, 
and  for  the  709^  time  and  number  of  runs  for  both  class  work  and 
research  used  by  each  department. 

2.3.3.3.  Departmental  Monthly  Statements 

Each  month  a  statement  is  sent  to  the  head  of  every  department  or 
administrative  unit  which  used  the  computer  during  that  month. 

The  report  consists  of  the  following  parts: 

a)   The  Departmental  Monthly  Summary.   This  gives  the  hours  approved 
during  the  month,  the  total  number  of  hours  approved  to  date, 
the  total  number  of  hours  of  computing  time  received  by  the 
department  during  the  month,  the  total  hours  received  by  the 
department  to  date,  and  the  total  number  of  approved  hours  not 
yet  received. 
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b)  The  Monthly  Departmental  Summary  of  Machine  Running  Time.   The 
total  running  time  is  broken  down  into  each  problem  specification 
number  active  for  the  department. 

c)  A  set  of  individual  sheets  describing  each  problem  specification 
or  problem  specification  change  approved  during  the  month.   These 
sheets  consist  of  two  types:   (l)  A  very  complete  summary  descrip- 
tion of  each  new  problem  specification  approved  and  initiated  during 
the  month  and  (2)  a  rather  brief  data  sheet  describing  each  old 
specification  which  has  had  during  the  month  an  approved  change 
involving  the  number  of  hours  pertinent  to  that  problem  specification. 

2.3.3.4.   Billing 

Each  month  a  bill  is  sent  pertaining  to  each  Problem  Specification 
Number.   This  bill  is  submitted  on  the  standard  University  of  Illinois  voucher 
to  the  address  indicated  on  the  Problem  Specification  and/or  Change  form.   It 
contains  the  Problem  Specification  Number,  number  of  hours  used,  the  amount 
due  at  the  current  rate,  the  name  of  the  prime  user,  the  source  of  funds  and 
the  pertinent  University  account  number. 
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2.4.   Supplies 

2.4.1.   Expendable  Supplies 

Under  this  classification  come  such  items  as  Hollerith  cards,  printer 
paper,  programming  forms,  and  rubber  bands.  All  such  items,  in  normal  quantities, 
are  supplied  without  charge.   If  unusually  large  quantities  of  such  supplies  or 
specialized  formats  are  required,  then  the  user  must  purchase  them  either  by 
special  arrangement  with  the  Department  of  Computer  Science  or  through  some 
vendor  of  such  supplies.   The  standard  printer  paper  at  the  Department  of 
Computer  Science  is  11  inches  by  l4  7/8  inches  in  size,  ruled  three  lines  per 
inch  on  one  side  only,  punched  at  both  edges  for  the  IBM  1403  printer  sprockets. 

For  the  various  functions  within  the  Department  the  following  card  forms  should 
be  used: 


Card 

Code 

Function 

Format 

Number 

Color 

Stripe 

Corner  Cut 

Column  Binary 

Binary 

L54320 

Natural 

None 

Left 

SCATRE  Programs 

SCAT 

C50859 

Natural 

Grey 

Left 

F0RTRAN  Programs 

FORTRAN- 

MAD 

G93667 

Natural 

Yellow 

Left 

MAD  Programs 

FORTRAN - 

MAD 

G93667 

Natural 

Green 

Left 

ALG0L  Programs 

Data 

5081 

Natural 

Red 

Left 

Data 

Data 

5081 

Yellow 

None 

Left 

Data 

5081 

Green 

None 

Left 

Data 

5081 

Blue 

None 

Left 

System  Control 

Cards 

SCAT 

C50859 

Natural 

Blue 

Left 

SCAT 

C50859 

Natural 

Salmon 

Left 

Problem  Run  Cards 

(or  "identification" 

Cards) 

Run 

G84760 

Natural 

None 

None 

(for  jobs 

which  are  t 

0  be 

run  on  e 

ither  Illiac 

II  or 

the  IBM  7094 

at  the  d 

iscretion  of 

the  Department ) 

Run 

G84760 

Natural 

Red 

(Center 

None 
) 

(for  jobs 

to 

be  run  0 

nly 

on  the  IBM  7094) 

Run 

G84760 

Natural 

Blue 

None 

(Center) 
(for  jobs  to  be  run  only  on  the  ILLIAC  II ) 

The  Department  reserves  the  right  to  reject  decks  not  conforming  to 

these  standards. 
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].     Automatic  Processing  of  Programs 
3.1.   General 

In  the  early  days  of  academic  computers,  few  areas  of  research  had 
formulated  their  mathematical  problems  in  such  a  way  as  to  require  massive 
ammounts  of  calculation.   Usually,  ingenious  procedures  had  "been  devised  to 
avoid  great  amounts  of  calculation.   Indeed,  so  simple  a  thing  as  the  inver- 
sion of  any  hut  the  smallest  of  matrices  was  carefully  avoided,  and  analyses 
involving  such  calculations  were  thought  as  "interesting,  but  wholly 
academic. " 

Thus,  to  those  individuals  who  did  have  computations  to  make,  who 
had  formulated  their  problems  in  such  a  manner  as  to  be  numerically  solvable, 
the  greatest  problem  was  not  one  of  scheduling  time  on  a  computer.   The 
greatest  immediate  difficulty  was  that  of  preparing  programs  to  solve  the 
problems  at  hand. 

Programming  was  a  tedious  process,  requiring  time  and  patience; 
machine  language  coding  quickly  gave  way  to  symbolic  coding,  which  developed 
from  simple  symbolic  representations  of  machine  instructions,  to  the  advanced 
systems  we  know  today,  including  pseudo-operations,  macro-instructions,  and 
relocatable  assembly.   The  search  for  more  programming  ease  led  to  the 
development  of  the  algebraic  procedural  languages  and  investigations  of 
artificial  languages  in  general. 

By  this  time,  many  of  the  persons  who  had  heretofore  shunned  large-scale 
calculations  began  to  take  a  new  look  at  their  problems  and  to  reformulate  them 
in  the  "new"  terms.   The  general  knowledge  of  and  appropriateness  of  algebra 
led  naturally  to  algebraic  formulations  in  many  cases  and  the  availability  of 
the  algebraic  languages  rapidly  increased  the  work  load  on  computers.   Securing 
computer  time  of  sufficient  length,  but  more  importantly,  at  appropriate 
intervals,  is  now  a  significant  problem  of  the  computer  user.   As  users  came 
to  have  less  and  less  direct  contact  with  the  computer  and  "impartial  third 
parties"  operated  them,  "turn-around  time"  became  increasingly  important. 
Paralleling  the  development  of  the  interest  in  using  computers  and  the  algebraic 
languages  which  simplified  programming  was  an  increase  in  the  complexity  and 
particularly  the  speed  of  computers  themselves.   Those  groups  responsible  for 
providing  computer  services  of  various  kinds  found  themselves  faced  with  the 
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task  of  increasing  the  efficiency  of  usage  of  the  hardware  -  to  minimize 
wasted  time  -  so  that  all  who  wished  could  have  full  access  to  the  hardware 
facilities,   A  closely  allied  task  was  that  of  providing  ready  (  and  efficient) 
access  to  the  general  purpose  subroutines  which  were  "being  written. 

In  addition  to  these  needs  for  increased  efficiency  in  the  proces- 
sing of  programs  and  increased  convenience  in  using  "library"  routines  was 
the  desire  to  keep  more  accurate  records,  automatically,  on  the  usage  of  the 
machines,  to  standardize  input/output  programming  and  data  transmission 
procedures,  and  to  reduce  operator  error  by  reducing  the  requirement  for  human 
intervention  during  the  processing  of  programs. 

These  requirements  pointed  to  some  kind  of"  "caretaker"  program  -  a 
program  that  would  reside  in  the  computer  system  at  all  times  and  be  available 
to  the  central  processing  unit  (CPU)  to  direct  the  activities  of  the  entire 
system  except,  of  course,  when  the  CPU  was  under  the  control  of  a  user's 
program,,   Many  such  executive  programs  have  been  written,  but  they  serve 
generally  the  same  end:   that  of  increasing  the  efficiency  of  the  man-machine 
system. 

The  PORTHOS  executive  system  is  one  such  program,  or  more  accurately, 
collection  of  programs.   In  addition  to  the  general  requirements  mentioned  above, 
its  structure  was  dictated  by  the  specific  requirements  of  the  University  of 
Illinois,  and,  of  course,  by  the  features  of  the  IBM  709^-1^-01  computer  complex 
operated  by  the  Department  of  Computer  Science. 

Briefly,  PORTHOS  is  an  operating  system  which  allows  nearly  automatic 
processing  of  "batches"  of  programs.   PORTHOS  and  its  sub-systems  reside  on 
two  magnetic  tapes  (the  master  tapes)  and  include  the  following" 

programs  to  monitor  operations  and  keep  records; 

routines  to  control  access  to  various  input/output  units  (the  execution 
coordination  routines ); 

routines  to  handle  automatically  conversion  of  data  into  forms  for 
either  human  or  machine  consumption  (the  input/output  with 
conversion  routines); 

an  assembly  program  for  both  absolute  and  relocatable  forms  of  programs 
(SCATRE); 

four  algebraic  compilers  (FASTRAN,  FORTRAN  II,  MAD,  and  ALGOL-60); 
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an  extensive  library  of  subroutines; 

several  specialized  programming  systems  (e.g.,  STATMON  and  SNOBOL); 

and  a  loader  program  which  load  previously  translated  programs  into 
arbitrary  areas  of  core  for  execution  (SCATRE  and  the  algebraic 
compilers  translate  programs  into  relocatable  form) . 
Provision  is  also  made  for  "chaining"  several  programs  together  so  that  one 
after  the  other  can  be  called  into  core  and  executed  (Ping-Pong). 

The  subroutine  library  is  discussed  in  section  5 >    input/output  with 
conversion  in  section  6,  and  the  other  features  of  PORTHOS  in  the  remaining 
parts  of  section  3« 
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3.2.  The  PORTHOS  Executive  System 
3.2.1.  Introduction 

The  PORTHOS  executive  system  was  developed  at  the  Digital  Computer 
Laboratory,  University  of  Illinois,  to  process  jobs  efficiently  on  the  IBM 
709^-  computer,  and  is  based  in  large  part  upon  a  similar  executive  system 
designed  at  the  University  of  Michigan  Computing  Center.   Its  use  minimizes: 

(1)  the  time  involved  in  change  from  one  person's  program  to 
another,  since  this  is  handled  automatically  by  the  computer, 

(2)  operator  errors  in  handling  the  programs,  since  most  of 
the  decisions  are  made  by  the  system, 

(3)  errors  in  Department  of  Computer  Science  accounting  procedures, 
since  time  records  are  maintained  directly  by  the  system  by  means 
of  a  special  clock, 

(k)      the  time  involved  in  carrying  a  program  to  completion,  by 

allowing  immediate  execution  of  a  program  which  first  needs 

translation,  and 

(5)  programming  time,  since  a  variety  of  translators  is  available. 

Two  types  of  translators  are  available  in  the  PORTHOS  executive 
system,  compilers  and  assemblers.   The  fundamental  distinction  between  the 
two  types  is  that  instructions  in  a  program  written  in  an  assembly  language 
are  usually  translated  one  for  one  into  machine  language,  while  compilers 
translate  statements  consisting  of  a  string  of  operators  and  operands  into 
sequences  of  machine  code.   The  assembler  available  in  the  system  is  called 
SCATRE  (for  SCAT  Compatible  Assembler,  Translator,  Relocatable  for  the  IBM 
709J+) .   The  compilers  which  are  available  are  FASTRAN  (FAST  FORTRAN),  MAD 
(Michigan  Algorithm  Decoder),  FORTRAN  II  (FORmula  TRANslator),  and  ALGOL-60 
(ALGOrithmic  Language).   The  FASTRAN  translator  was  written  at  the  University 
of  Indiana  Computing  Center;  the  MAD  translator  was  written  at  the  University 
of  Michigan  Computing  Center;  the  FORTRAN  II  translator  was  written  by  IBM; 
and  the  ALGOL-60  translator  was  written  at  the  University  of  Illinois  by 
individuals  from  the  ALCOR  Group  in  Europe  and  from  the  Digital  Computer 
Laboratory.   Manuals  covering  the  use  of  each  of  these  languages  are  available 
from  the  library  in  Room  165,  Engineering  Research  Laboratory.   Brief 
descriptions  of  each  appear  later  in  this  manual. 
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The  system  may  be  roughly  described  as  follows.   The  Monitor,  SCATRE, 
the  compilers,  the  Loader,  and  the  Library  of  subroutines  are  all  maintained  on 
two  magnetic  tapes,  called  the  master  tapes,  which  are  always  accessible  to  the 
computer.   As  the  jobs  are  submitted  for  running  by  the  users,  they  are  grouped 
into  categories  (see  section  k.2.3-)   according  to  various  criteria,  and  taken 
to  the  1*4-01  computers  in  "batches"  of  jobs,  all  of  the  same  category.   The  jobs 
in  each  batch  are  written  onto  a  magnetic  tape,  called  the  system  input  tape, 
by  one  of  the  off-line  1*4-01  computers.   This  tape  is  mounted  on  an  on-line 
tape  unit  when  the  709^-  computer  has  finished  processing  the  previous  batch. 
After  the  input  tape  is  mounted,  the  operator  by  means  of  console  operations 
calls  in  the  Monitor,  which  in  turn  reads  in  the  first  job  from  the  input  tape 
for  processing.  After  examining  the  Problem  Run  card  (see  section  *4-„2.2.1.), 
the  Monitor  begins  to  work  its  way  through  the  input  deck,  performing  the 
actions  indicated  by  the  programmer.   Input  cards  for  the  SCATRE  assembler  or 
for  the  compilers  require  translation,  so  each  section  of  these  cards  is 
preceded  by  a  set  of  control  cards,  recognized  by  a  $  in  column  1  and  no  $  in 
column  2,   These  cards  are  called  $  control  cards,  and  are  described  in  detail 
in  section  U.2.2.3-   A  typical  $  control  card  may  have  the  form 

$     FASTRAN,  PUNCH  0BJECT 
indicating,  in  this  case,  that  the  cards  which  immediately  follow  require 
translation  by  the  FASTRAN  compiler,  and  that  the  translated  program,  the 
object  program,  is  to  be  punched  out  on  cards  in  column -binary  form.   Whenever 
the  Monitor,  in  working  its  way  through  the  input  deck,  finds  a  $  control  card, 
it  thus  knows  how  the  cards  which  follow  are  to  be  processed.  A  single  job 
may  contain  sections  in  MAD,  SCATRE,  FASTRAN  and/or  ALGOL,  each  with  appropriate 
$  control  cards,  as  well  as  column  binary  cards,  which,  of  course,  do  not  require 
translation  and  which  need  not  be  identified  by  $  control  cards. 

If  the  first  set  of  $  control  cards  contains  the  control  instruction 
G0  (there  may  be  more  than  one  $  control  card,  each  with  one  or  more  instructions, 
for  each  section  of  the  program),  all  sections  of  the  program,  whether  contained 
on  cards  in  binary  form  as  part  of  the  input  deck  or  generated  by  a  compiler  or 
assembler,  are  recorded  on  a  separate  magnetic  tape,  which  is  called  the 
"execution"tape.   When  the  program  has  been  completely  translated,  it  is  loaded 
from  the  execution  tape  into  core  to  be  executed. 
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If  errors  are  detected  during  assembly  or  compilation  of  some  section 
of  the  input  deck,  no  further  saving  of  any  binary  instructions  is  made,  and  the 
program  is  not  executed.   Translations  of  remaining  sections  are  usually  performed, 
thus  providing  a  complete  scan  of  the  deck  for  errors.   It  should  be  understood 
that  the  translators  on  a  later  run  may  find  other  more  subtle  errors,  even  after 
the  original  errors  have  been  corrected.   At  loading  time,  the  system  loader 
automatically  calls  in  any  library  subroutines  needed  by  the  program  but  which 
were  not  supplied  as  part  of  the  input  deck.   If  at  least  one  such  needed 
subroutine  is  not  available  on  the  library  tape,  an  appropriate  comment  is  output 
to  the  user  and  the  job  is  terminated.   After  the  successful  or  unsuccessful 
execution  of  a  program  and  possible  subsequent  dumping  of  diagnostic  information, 
the  Monitor  automatically  calls  in  the  next  job  on  the  input  tape. 
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3.2.3.  The  Executive  System  Monitor 

An  executive  system  is  a  large  set  of  programs  which  perform  many  of 
the  scheduling  and  accounting  operations  previously  done  by  hand.   The  main 
control  rests  in  a  Monitor  program,  which  is  one  part  of  the  system.   The 
Monitor,  which  is  itself  located  on  a  magnetic  tape,  is  read  into  core  as  it 
is  needed,  brings  in  from  the  input  tape  (which  is  normally  prepared  off-line) 
one  program  after  another  and  directs  preparation  of  each  program  for  execution. 
The  preparation  may  consist  of  translating  instructions  from  some  language 
convenient  to  the  user  into  machine  code.   Programs  which  are  very  large  may 
be  broken  into  segments,  each  segment  being  large  enough  to  fill  the  available 
area  of  core  storage  by  itself.   Such  a  segment  is  referred  to  as  a  core  load, 
and  the  Monitor  provides  certain  facilities  for  easily  calling  in,  during  execution, 
one  core  load  after  another.   This  process  is  called  Ping-Pong  and  is  fully 
described  in  section  3*2. ^-.7- 

Programs  processed  by  the  PORTHOS  executive  system  may  contain  sections 
which  need  assembly  by  SCATRE,  compilation  by  MAD,  FASTRAN  or  ALGOL,  or  which 
may  already  be  in  binary  form  as  a  result  of  some  previous  compilation  or  assembly. 
During  the  processing,  the  Monitor  notes  from  the  first  set  of  $  control  cards 
whether  or  not  the  program  which  is  finally  produced  in  binary  machine  language 
is  to  be  executed  and  sets  a  switch  to  "execute."  The  switch  may  be  subsequently 
set  by  the  Monitor  to  "not  execute"  in  case  of  an  unsuccessful  assembly  (due, 
for  example,  to  undefined  or  multiply -de fined  symbols  in  SCATRE),  or  unsuccessful 
compilation  by  MAD,  FASTRAN  or  ALGOL,  or  for  some  other  reasons,  such  as  a  BCD 
card  image  occurring  among  binary  card  images.   As  soon  as  the  switch  is  set  to 
"not  execute,"  binary  cards  which  are  found  on  the  input  tape  and  binary  sections 
of  program  generated  by  assemblies  or  compilations  are  no  longer  saved. 

As  long  as  the  switch  is  set  to  "execute,"  however,  all  binary  sections 
of  programs,  whether  generated  by  the  computer  during  the  current  run  or  arriving 
as  input  cards  from  previous  translations,  are  saved  on  the  execution  tape. 
After  all  translations,  if  the  switch  is  still  set  to  "execute,"  the  program 
(except  for  library  subroutines  not  provided  in  the  input  card  deck)  is  found 
on  the  execution  tape  in  binary  form.   When  a  $DATA  card,  a  $BINARY  card,  or 
the  last  of  the  cards  for  the  current  job  is  encountered  (some  programs  have 
no  data),  a  part  of  the  executive  system,  the  system  Loader,  is  called  in  by 
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the  Monitor  and  the  loading  phase  of  the  job  is  begun.   It  is  important  to 
remember  that  the  program  on  the  execution  tape  is  in  binary  card-image  form, 
whether  it  arrived  on  binary  cards  or  was  generated  on  this  run.   The  Loader 
cannot  tell  the  source  of  the  binary  instruction  nor  does  it  need  to  know. 
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3.2.U.   The  System  Loader 


3-2.U.1.   Introduction:  Relocatable  Programs 


The  Loader  has  several  jobs  to  perform.   It  must  load  into  core  the 
main  program  and  the  various  subroutines  so  that  they  do  not  overlap  in  storage; 
it  must  call  in  from  the  library  those  subroutines  needed,  but  not  yet  present; 
and  it  must  establish  the  linkage  between  these  various  programs  and  subprograms 
so  that  they  may  refer  and  transfer  to  one  another,  even  though  each  was  written 
without  knowledge  of  the  order  in  which  they  would  be  loaded,  or  where  they  would 
eventually  reside  in  core. 

In  order  to  accomplish  these  tasks,  the  Loader  must  have  available 
certain  information  about  each  of  the  subprograms  and  the  main  program.   The 

If 

information  consists  of: 

(1)  The  amount  of  storage  to  be  set  aside  for  each  program  and 
subprogram; 

(2)  The  number  of  other  subroutines  to  which  the  current  subroutine 
or  program  may  transfer  during  execution; 

(3)  The  requirements  of  this  program  for  space  in  the  temporary 
storage  set  aside  for  use  by  the  main  program  and  subroutines 
(known  as  Erasable  and  Program  Common); 

(k)     The  names  by  which  each  program  may  be  referred  to  by  other 
programs  or  subroutines; 

(5)  The  point  of  entry  implied  by  the  use  of  each  of  the  names 

m  (10; 

(6)  The  location  within  the  program  of  the  names  in  (7)  below; 

(7)  The  names  of  other  subroutines  to  which  this  program  or 
subroutine  may  transfer  during  execution „ 

Items  (l)  through  (6)  are  presented  to  the  Loader  on  a  binary  card 
called  the  Program  Card,  the  image  of  which  immediately  precedes  the  program 
on  the  execution  tape.   The  format  of  this  card  appears  in  section  3-2.U.9-2. 
The  names  referred  to  in  (7)  are  part  of  the  program  itself,  occurring  at  the 
very  beginning  of  the  set  of  instructions.   There  may  be  no  such  names,  of 
course,  in  which  case  they  are  omitted,  and  the  number  in  (2)  is  zero. 
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When  they  do  occur ,  they  constitute  the  Transfer  Vector,   In  some  programs 
or  subprograms,  storage  may  be  reserved  below  the  Transfer  Vector,  so  (6) 
indicates  where  the  Transfer  Vector  starts. 

In  the  case  of  a  large  program  which  has  been  split  up  into  several 
core-loads  (a  Ping-Pong  job;  see  section  3«2.^.7')j  standard  column-binary 
transition  cards(see  section  3«2.^.9«^- )  separate  the  core-loads  on  the  tape, 
so  that  the  Loader  can  tell  when  the  end  of  a  core-load  occurs. 

All  programs  and  subroutines  are  here  assumed  to  be  in  relocatable 
form.   This  means  that  they  are  written  in  such  a  way  that  the  Loader  may 
move  them  to  any  section  of  the  core  storage,  and  internal  references  to 
data  and  other  instructions  are  automatically  adjusted  for  the  move.   This 
adjustment  is  known  as  "relocation „ "  Since  certain  instructions,  such  as 
"shift  the  accumulator  to  the  right  6  binary  places"  (ARS  6  in  SCATRE) 
should  not  be  affected  by  a  move  in  storage,  the  Loader  must  know  which 
instructions  are  to  be  adjusted,  and  which  are  not  to  be  adjusted  in  the 
relocation  process.   The  special  relocation  information  needed  by  the  Loader 
is  contained  on  every  relocatable  instruction  card  for  each  of  the  instructions 
occurring  on  that  card,  and  thus  is  available  to  the  Loader  when  it  examines 
these  cards.   The  details  of  how  this  information  is  transmitted  are  discussed 
in  section  ^,2«5-3«   It  should  be  remembered  that  for  programs  produced  by 
FASTRAN,  MAD,  FORTRAN  and  ALGOL,  the  Program  Card,  the  Transfer  Vector,  and 
the  relocation  information  are  all  automatically  provided  by  the  translator. 
SCATRE  automatically  provides  relocation  information  in  every  relocatable 
binary  program  it  produces,  and  normally  provides  the  Program  Card  and 
Transfer  Vector  also. 

The  action  of  the  Loader  in  preparing  the  program  for  execution 
may  be  described  as  follows. 

The  first  thing  the  Loader  does  is  to  store  throughout  available 
core,  except  for  the  areas  occupied  by  the  low-core  Execution  Coordination 
Routines,  the  Monitor,  and  the  Loader  itself,  a  transfer  instruction  to  a 
special  subroutine  which  resides  in  low  core.   This  transfer  instruction  is 
called  the  Core  Constant,  and  is  discussed  in  section  3»2„4.3.   When  a 
program  is  subsequently  loaded,  it  will  overwrite  many  of  these  transfer 
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instructions,  but  should  an  illegal  transfer  occur  during  execution,  it  will 
often  be  to  one  of  these  transfer  instructions;  the  system  can  then  regain 
control,  and  output  an  error  message  to  the  user  indicating  an  erroneous 
transfer  to  this.   Often,  this  enables  this  user  to  determine  quickly  where 
the  program  went  astray. 

The  first  thing  the  Loader  reads  from  the  execution  tape  is  the 
Program  Card  for  the  first  subroutine  or  main  program  on  the  tape.*  Items 
(l)  through  (3)  are  recorded  for  later  reference,  and  items  (k) ,    (5)>  and  (6) 
are  entered  in  a  table  called  the  Subroutines -Present  Table.   The  remaining 
instruction  cards  of  the  program  are  then  loaded,  until  another  Program  Card 
is  encountered,  signaling  another  program  or  subprogram.   Each  instruction 
card  image  is  loaded  and  relocated  according  to  the  loading  address  it  carries. 
Even  the  first  program  is  relocated,  since  the  system  reserves  a  block  of 
locations  in  low  core.   This  amount  of  relocation,  SYS0RG  =  IOOOOq  at  present, 
is  subject  to  change  at  any  time.   After  the  entire  subroutine  or  program  is 
loaded,  the  relocation  amount  is  increased  by  the  length  of  this  program, 
known  from  (l)  above.   This  insures  that  the  next  program,  when  relocated, 
will  not  overlap  the  program  just  loaded.   The  process  just  described  is 
then  repeated  for  the  next  program  or  subprogram,  until  an  entire  core -load 
has  been  loaded  into  core.   For  single-core  (not  Ping -Pong),  jobs,  this  means 
the  entire  program,  and  therefore  the  entire  execution  tape. 

During  this  process,  the  main  part  of  the  Loader  has  been  occupying 
a  section  of  high  core  (that  is,  the  part  of  core  storage  with  the  highest 
addresses).   The  Subroutines  -  Present  Table  is  located  just  below  the  Loader, 
and  grows  downward  toward  the  programs  that  are  being  loaded,  which  in  turn 
are  growing  upward  toward  the  Loader.   If  an  overlap  occurs  between  the 
program  being  loaded  and  the  subroutine  table,   a  split-core  loading  procedure 
is  initiated.   (See  Section  3-2.^.11.  ).  After  all  the  programs  have  been 
loaded  from  the  execution  tape,  the  Subroutines -Needed  Table  is  created  just 
above  the  loaded  programs.   It  may  happen  that  the  Subroutines -Present  Table 

*This  is  the  case  if  no  $  BINARY  control  card  appears  in  the  first  group  of 
control  cards.  In  such  a  case,  a  binary  transition  card  would  appear  first 
on  the  execution  tape. 
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and  the  Subroutines -Needed  Table  will  overlap;  in  this  case  split-core  loading 
is  initiated.   Assuming  no  overlap,  then,  the  subroutines  which  are  still  needed 
must  come  from  the  subroutine  library  tape,  or  the  program  cannot  be  executed, 
The  names  still  needed  are  therefore  checked  against  a  master  list  of  entries 
in  the  library. 

If  subroutines  are  needed  which  are  not  available,  an  appropriate 
comment  is  output  to  the  user  with  a  list  of  the  missing  subroutines  for  each 
core  load.   The  program  is  then  executed  for  15  seconds,  or  until  a  missing 
subroutine  is  called,  whichever  occurs  first.   A  list  is  also  printed  of 
subroutines  which  may  inadvertently  have  been  loaded  by  the  user  more  than  once 
within  a  core  load;  the  loading  process  is  not  terminated  by  this  action;  only 
the  first  copy  of  a  multiply -loaded  subroutine  is  actually  used.   All  of  the 
available  library  routines  that  are  needed  are  then  brought  into  core.   Finally, 
the  entire  program  is  situated  in  core,  but  is  still  not  quite  ready  to  execute. 
The  Loader  must  now  establish  the  linkages  between  programs,  so  that  each  will 
know  where  the  subroutines  to  which  it  must  transfer  are  located.   Since  the 
entry  point  for  each  subroutine  present  is  available  in  the  Subroutines -Present 
Table,  the  Loader  needs  only  to  scan  the  Transfer  Vector  of  each  program  or 
subprogram  (which  it  can  find  from  item  (6)),  and  replace  the  names  it  finds 
there  by  a  transfer  instruction  to  the  address  of  the  subroutine  entry.* 
After  all  the  linkages  are  established,  the  Loader  stores  the  core  constant 
on  top  of  itself,  turns  off  various  switches  and  the  sense  lights,  and 
transfers  to  the  beginning  of  the  main  program  to  begin  execution. 

The  reader  will  note  that  the  use  of  item  (3)  has  not  yet  been 
outlined.   The  size  of  Erasable  storage  needed  by  the  current  program  is 
actually  obtained  as  the  lowest  of  all  such  addresses  encountered,  and  this 
is  then  the  size  of  Erasable  storage  needed  to  accommodate  all  the 
subroutines  and  programs „   It  may  happen  that  the  Loader  will  recognize 

*  See  SUBTFACE  (Section  3.2.U.12.) 
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that  the  Erasable  area  and  the  Program  actually  will  overlap  during  execution. 
When  this  is  the  case,  the  loading  process  is  terminated,  with  an  appropriate 
comment  output  to  the  user  for  each  core  load. 

3.2.^.2.   COMMON,  PROGRAM  COMMON,  and  ERASABLE 

PROGRAM  COMMON  and  ERASABLE  are  used  in  MAD  and  SCATRE,  while  COMMON 
is  used  in  FORTRAN  and  FASTRAN.   The  very  top  of  high  core  may  be  used  by  any 
program  or  subroutine  for  temporary  (erasable)  storage.   This  may  be  shared 
by  and  destroyed  by  any  other  program  or  subroutine.   COMMON,  as  used  in 
FORTRAN  and  FASTRAN,  is  exactly  the  same  as  ERASABLE,  except  that  it  starts  206 
locations  below  the  top  of  high  core,  which  is  at  location  32767-,  n>   PROGRAM 
COMMON,  as  used  in  MAD  and  SCATRE,  is  located  just  above  the  low  core  area  used 
by  the  system,  and  is  used  primarily  as  a  communication  region  between  subroutines 
within  one  core  load  or  between  core  loads  in  Ping -Pong.   The  storage  of  data  in 
ALGOL  is  entirely  dynamic  and  the  user  ordinarily  does  not  know  where  his  data 
is  located  in  core;  in  fact,  its  location  may  change  with  time  during  the 
execution  of  a  single  program.   Hence,  the  concepts  of  PROGRAM  COMMON,  COMMON, 
and  ERASABLE  have  no  meaning  for  the  user  of  ALGOL.   The  user  should  see  the 
appropriate  translator  manuals  for  details  on  how  to  use  these  specialized 
storage  areas. 

3.2.^,3.   The  Core  Constant 

Before  loading  either  a  single -core  job  or  the  initially  executed 
core  load  of  a  Ping -Pong  job,  all  locations  of  storage  from  the  top  of  low 
core  (lOOOOn)  to  the  bottom  of  the  Monitor  (currently  occupying  locations 
60000q  to  70000ft)  are  preset  to  the  octal  number  i-007U00^035i+l  (TSX  35^1,4), 
called  the  core  constant.   If  the  Monitor  should  be  overwritten  by  even  1 
location  of  the  program,  the  entire  Monitor  is  overwritten  with  core  constants. 
After  loading  the  last  core  load,  the  locations  from  the  bottom  of  the  Monitor 
(or  the  Program  Break  if  it  is  greater  than  60000p)  "to  approximately  location 
77752o  are  also  preset   to  the  core  constant.   Hence,  unless  a  variable's 
value  is  loaded  with  the  program  (i.e.,  unless  the  value  of  the  variable 
is  in  some  way  defined  prior  to  the  start  of  execution),  its  value  at  the 
start  of  execution  will  in  most  cases  be  +007U00^035^1q- 
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If  printed  out  by  the  object  program,  the  core  constant  will  appear 
as  follows : 

A  or  C  conversion  0(0-bJ 

I  conversion  ( FORTRAN  or  FASTRAN)  38UO 

I  conversion  (MAD  or  SCATRE)  IOO676592I 

F  conversion  0 

E  conversion  1. 88451730E-37 

For  Ping-Pong  programs,  the  region  from  7OOOO0  to  77752q  is  preset 
to  core  constants  only  for  the  last  core  load, 

3.2.4.4.   The  Transfer  Vector 

The  Transfer  Vector  of  a  program  or  subprogram  consists  of  the 
names  of  all  the  other  subprograms  referred  to  by  the  program.   It  usually 
occurs  at  the  beginning  of  the  program.   In  the  case  of  references  to  a 
subprogram  with  more  than  one  entry  point,  a  name  is  listed  for  each  entry 
point  to  which  reference  is  made.   The  reader  should  note  that  subprograms 
as  well  as  main  programs  may  have  a  Transfer  Vector,  since  a  subprogram  may 
call  for  other  subprograms  in  turn.   When  a  program  has  a  Transfer  Vector, 
the  location  of  the  first  name  in  the  vector  is  indicated  on  the  Program  Card 
for  that  program.   It  usually  occupies  relocatable  location  0  in  the  compiled 
deck.   Each  name  in  the  list  is  counted  as  one  word  of  the  program.   It  should 
be  carefully  noted  that  the  Program  Card  lists  entry  points  to  the  current 
program  or  subprogram,  while  the  Transfer  Vector  indicates  other  subprograms 
which  are  used  by  this  program  or  subprogram. 

3.2.4.5=   Program  Cards 

SCATRE,  FASTRAN,  MAD,  FORTRAN  and  ALGOL  automatically  produce  object 
program  decks  in  relocatable  column -binary  form.   Instructions  are  usually 
assigned  at  translation  time  to  consecutive  storage  locations  starting  at  0, 
and  all  location  references  are  relative  to  0.   When  a  relocatable  binary 
deck  is  loaded,  location  references  within  individual  instructions  are  adjusted 
to  the  actual  locations  occupied  by  the  program  in  storage. 
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Control  information  for  the  relocation  process  is  provided  to  the 
Loader  "by  program  cards,  which  appear  at  the  front  of  the  main  program  deck 
and  at  the  front  of  each  subprogram  deck.  A  program  card  specifies  the  number 
of  locations  to  be  occupied  by  the  program.   This  number  is  used  as  an  increment 
for  relocating  an  immediately  following  program.   The  increments  specified  by 
successive  program  cards  are  cumulative.   Program  cards  contain  other  information 
required  by  the  Loader  to  interpret  symbolic  cross-references  between  the 
program  and  its  subprograms  and  between  subprograms  which  call  on  other  sub- 
programs.  Program  cards  are  automatically  supplied  as  needed  by  the  translators 
and  may  be  recognized  by  a  12-punch  in  column  1.   The  detailed  structure  of  the 
program  card  is  described  in  Section  3*2. 4.9*2. 

3.2.4.6.   The  Loader  Map 

At  the  completion  of  the  loading  of  each  core-load  of  a  job,  a  map 
of  storage  is  produced.   It  is  printed  as  part  of  the  user's  output.   This 
map  gives  the  name  and  the  relocation  amount  of  each  subroutine  loaded  (the 
relocation  amount  for  low  core  subroutines  is  given  as  00000).   Subroutines 
brought  in  from  the  library  are  indicated  by  an  asterisk  *  .   The  relocation 
amount  of  the  main  program  is  identified  by  the  name  (MAIN).   Three  additional 
numbers  are  produced  as  well.   It  should  be  remembered  that  all  numbers  in  the 
map  are  octal. 

(ERAS)  --  This  is  the  lowest  address  reserved  in  high  core 

as  Erasable  Storage. 
(SUBT)  --  This  is  one  less  than  the  lowest  address  in  the 

Subroutines-Present  Table  maintained  by  the  Loader 
during  loading  time.   It  indicates  the  current 
effective  size  of  the  Loader. 
(PROG)  --  This  is  the  upper  edge  of  the  section  of  core  into 
which  the  main  program  and  subroutines  have  been 
loaded.   If  split-core  loading  is  initiated,  the 
word  SPLIT-C0RE  appears  following  the  word  MAP. 
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If  any  of  these  three  sections  of  core  becomes  excessively  large,  there  is  the 
possibility  of  overlap. 

The  following  comment  may  be  produced: 

PROGRAM  AND  ERAS .   OVERLAP  BY  XXXXX  ( OCTAL )  LOCS . 
In  this  case  (PROG)  exceeds  (ERAS),  and  the  program  may  have  to  be  segmented 
by  means  of  Ping-Pong. 

A  comment  will  follow  the  map  indicating  the  number  of  locations  not 
used  by  the  program.   This  is  the  space  between  (PROG)  and  (ERAS),  and  the 
program  may  be  expanded  to  use  this  much  additional  storage. 

3.2.U.7.   Ping-Pong 

Ping-Pong  is  the  process  of  optionally  calling  and  passing  control  to 
one  of  several  complete  self-contained  programs  (core-loads)  that  comprise  a 
complete  Ping-Pong  program.   The  Ping-Pong  package  is  often  a  large  program 
which  has  been  broken  up  into  complete  self-contained  subprograms,  which  will 
be  referred  to  simply  as  programs.   Each  program  which  calls  in  another  one 
must  contain  the  appropriate  subroutine  specifying  which  program  is  to  be 
called  next . 

The  programs  that  comprise  a  Ping-Pong  package  must  have  compatible 
COMMON  statements  (EASTRAN  or  FORTRAN)  or  PROGRAM  COMMON  statements  (MAD)  for 
variables  referenced  by  more  than  one  program  (core-load).   The  COMMON  (or 
PROGRAM  COMMON)  statement  is  written  to  insure  that  all  references  to  a  given 
variable  refer  to  the  same  storage  position  no  matter  which  program  contains 
the  reference.   It  should  be  noted  that  COMMON  and  PROGRAM  COMMON  produce 
different  effects  and  should  not  be  used  together  without  extreme  care.   In 
fact,  MAD  and  EASTRAN  sections  should  be  mixed  in  an  input  deck  only  with  great 
caution.   The  dynamic  storage  allocation  feature  of  ALGOL  makes  it  infeasible 
to  mix  ALGOL  programs  with  programs  written  in  other  languages,  except  when  the 
latter  appear  as  subroutines  to  the  former,  and  are  properly  linked  to  the 
main  ALGOL  program. 
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Each  program  (the  last  $BREAK  is  optional  -  see  "below)  in  the  Ping- 
Pong  package  must  be  followed  by  either  a  $BREAK  control  card  or  a  standard 
column -binary  transition  card  (see  sections  h.2.2. 3>9-  and  3-2. h.^.k.).      Every 
appearance  of  a  $BREAK  control  card  will  cause  a  standard  column-binary 
transition  card  to  be  generated. 

The  core-loads,  followed  by  their  transition  cards,  are  thus  on  the 
execution  tape  when  the  Loader  is  called  in  by  the  Monitor.   The  Loader  then 
reads  the  program  cards  and  instruction  cards  from  the  execution  tape,  and 
loads  the  first  program  into  core,  relocating  it  and  any  necessary  subroutines. 
After  loading  has  been  completed,  the  Loader  writes  the  contents  of  core  from 
(MA.IN)  to  (PROG)  onto  the  Ping -Pong  tape  as  a  standard  system  record  (see 
section  3»2.^-.10.).   The  tape  onto  which  the  core -load  is  to  be  written  (the 
Ping-Pong  tape)  may  be  specified  by  the  use  of  the  $BREAK  control  card  (see 
section  I)-. 2. 2. 3.9.  ). 

The  Loader  then  repeats  this  process  for  each  core-load  on  the 
execution  tape.   After  all  core -loads  have  been  processed,  the  Loader  writes 
an  End-of-Tape  record  (see  section  U.2.6.3.)  on  each  Ping-Pong  tape.   If  in  the 
last  program  in  a  Ping-Pong  package  the  $BREAK  control  card  or  binary  transition 
card  is  omitted,  then  the  last  program  will  not  be  written  on  tape,  but  will  be 
executed  first.   Otherwise,  the  first  program  to  be  executed  will  be  the  core 
load  which  appeared  first  in  the  job  deck. 

To  call  successive  core -loads  into  core  for  execution,  the  user  may 
use  the  library  subroutines  SEQPGM  and  SELPGM,  which  are  described  in  section  5. 

Further  details  of  this  flexible  and  powerful  technique  may  be  found 
in  section  3«2.U.9.^.>  where  the  complete  description  of  the  binary  transition 
card  is  given. 

3.2.U.8.   Relocation  of  Programs 

The  key  address  for  relocation  purposes  is  the  Program  Break.   This 
address  is  computed  as  the  total  number  of  words  in  a  program,  including 
temporary  storage  other  than  Erasable  Storage.   The  Program  Break  is 
specified  on  the  program  card  (see  section  3-2.^. 9*2. ) . 
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Location  references  in  a  routine  are  relocated  by  the  Loader  either 
as  low  core  or  high  core  (Erasable  storage)  locations.  Relocation  as  a  low 
core  location  means  incrementing  by  the  current  loader  increment,  which  is 
initially  set  by  the  system  and  is  augmented  by  the  length  of  each  program 
after  it  has  been  loaded.   Relocation  as  a  high  core  location  means  decre- 
menting by  the  current  loader  decrement.   The  amount  of  relocation  of  the 
first  program  loaded  is  SYS0RG  (presently  IOOOOq);  and  is  subject  to  change 
at  any  timej  therefore  no  programmer  should  base  anything  on  this  particular 
parameter.   The  high  core  relocation  amount  of  the  Loader  is  currently  zero. 

The  Program  Break  is  one  of  the  two  quantities  which  determine  how 
a  particular  location  reference  is  to  be  handled  by  the  Loader.   However, 
location  references  which  are  numerically  less  than  the  Program  Break  are 
not  necessarily  relocated  as  low  core  locations,  nor  are  location  references 
which  are  equal  to  or  greater  than  the  Program  Break  necessarily  relocated 
as  high  core  locations,   Each  relocatable  binary  card  carries  its  own 
information  as  to  how  its  instructions  are  to  be  relocated.   This  information 
appears  in  the  form  of  relocation  bits.   The  relocation  bits  are  interpreted 
one  at  a  time  and  are  related  to  the  decrement  field  of  the  first  word  to  be 
loaded,  the  address  of  that  word,  the  decrement  of  the  next  word,  etc.   The 
relocation  bits  have  the  following  significance: 

0      Do  not  relocate  this  (decrement  or  address)  field, 

10  =   If  the  number  in  this  field  is  equal  to  or  greater  than  the  Program 

Break,  relocate  as  a  high  core  location.   If  it  is  less  than  the 
Program  Break,  relocate  as  a  low  core  location. 

11  =  If  the  number  in  this  field  is  equal  to  or  greater  than  the  Program 

Break;  relocate  as  a  low  core  location.   If  it  is  less  than  the  Program 
Break,  relocate  as  a  high  core  location,   This  is  not  used  very  often. 
The  Loader  therefore  knows  whether  to  relocate  the  address  and 
decrement  fields  of  each  instruction  as  it  reads  each  relocatable  instruction 
card  of  a  program,,   The  details  of  the  relocatable  instruction  card  are 
described  in  section  3°2o^-„9°3° 
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Because  certain  of  the  double -precis ion  floating-point  instructions 
on  the  709^-  require  that  the  address  of  the  instruction  refer  to  a  location 
in  core  which  is  an  even  number,  the  Loader  can  provide  for  the  loading  of 
a  program  such  that  a  desired  location  has  an  even  address.   The  EVEN 
pseudo-operation  in  SCATRE  causes  the  instruction  following  to  "be  placed  in 
an  even  location  with  respect  to  the  first  instruction  of  the  program,  and 
an  indication  to  "be  given  to  the  Loader  that  even  loading  is  desired  by  means 
of  the  tag  in  word  k   on  the  Program  Card  being  set  equal  to  k.      Since  the 
number  of  entries  in  the  program's  Transfer  Vector  may  be  even  or  odd,  the 
Loader  must  determine  whether  a  location  is  to  be  skipped  so  that  the  first 
instruction  of  the  program  will  appear  in  an  even  location.   The  user  will 
therefore  occasionally  find  on  the  Loader  Map  that  a  location  has  been  skipped 
between  subroutines  of  his  program  in  order  to  assure  the  correct  loading  of  a 
part  which  requires  even  locations.   (Note  that  the  relocation  amount  can  be 
either  even  or  odd). 

3-2.U.9-   Column  Binary  Card  Formats 

3. 2. h. 9.1.   General 

Since  only  column-binary  cards  (as  opposed  to  row-binary  cards) 
are  acceptable  to  the  PORTHOS  system,  these  are  the  only  cards  described  here. 

Column  binary  cards  are  punched  in  binary  in  a  vertical  arrangement 
on  the  card  with  the  sign  position  occupying  the  +  row  of  the  first  of  the 
three  columns  representing  a  word.   Succeeding  bits  are  located,  in  sequence, 
in  rows  -  through  9  of  the  same  column,  rows  +  through  9  of  the  next  column 
and  similarly  for  the  last  of  the  three  columns.   For  example,  bit   s   of  the 
fifth  word  on  a  card  will  be  in  the  +  row  of  column  13,  and  bit  35  of  the 
fifth  word  in  the  9  row  of  column  15.   Columns  73  through  80  contain  the  card 
identification . 

Column  binary  cards  are  identified  by  the  presence  of  7  and  9 
punches  in  column  1.   If  both  of  these  punches  are  not  present,  the  card 
will  not  be  treated  as  column  binary. 
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3.2.U.9.2.   Program  Card 

In  order  to  convey  information  to  the  Loader  concerning  the  length 
of  Program  Common,  the  Transfer  Vector,  and  Erasable,  etc.,  the  first  card  of 
a  binary  deck  is  normally  the  Program  card.   The  Program  card  is  always  present 
for  relocatable  programs,  and  may  or  may  not  be  present  for  absolute  assemblies. 
The  format  of  a  Program  card  is  described  below. 


Word 


Card 
Column 
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Row  or 
Rows 


0 

1-6  and  8 
7  and  9 

+  through  3 

k   through  9 


+  through  0 
1  through  9 
+  through  3 


Contents 

Must  be  punched;  this  identifies 

the  card  as  a  Program  card. 

Blank 

If  punched,  the  check  sum  will 

be  ignored  when  the  card  is  read. 

Blank 

Must  be  punched  to  identify  the 

card  as  column  binary. 

Count  of  words  on  the  card,  not 

including  the  first  two  words . 

Blank 

Blank 

Check  sum  (ACL)  of  all  the  words 

on  the  card  except  the  checksum 

itself.   If  this  word  is  left 

blank,  no  checksum  is  made. 

Blank 

Contain  the  number  of  entries  in 
the  program's  Transfer  Vector. 
This  will  be  zero  if  there  are  no 
entries  in  the  Transfer  Vector. 
If  it  is  not  zero,  then  the  first 
element  of  the  Transfer  Vector 
list  will  appear  in  word  3  of  the 
card  following  the  program  card  if 
the  mode  of  assembly  is  absolute, 
or  in  word  5  if  the  mode  of  assembly 
is  relocatable. 


The  number  N  is  the  logical  tape  number  of  the  tape  on  which  the 
Ping-Pong  program  is  to  be  written,  and  may  be  one  of  2,  9  °r  10*,  or  may  be 
blank. 

The  number  M  is  the  logical  tape  number  of  the  tape  from  which  loading 
is  to  take  place.   The  logical  tape  number  M  must  be  different  from  N,  and  M 
may  be  one  of  2,  3>  7 ?    9  or   10*,  or  may  be  blank. 

The  number  P  is  optional;  when  it  is  used,  it  may  be  used  only  in 
conjunction  with  the  number  N  in  column  6,  and  may  be  only  a  1  or  a  2.   If 
P  is  not  used,  P  is  left  blank. 

When  the  Loader  detects  a  logical  tape  number  N  in  column  6,  it 
writes  the  current  contents  of  core  as  a  record  on  tape  N  and  proceeds  to 
read  another  binary  card  image  from  the  tape  from  which  it  is  currently  loading. 
This  is  ordinarily  logical  tape  J>,    the  execution  tape,  but  may  be  a  logical  tape 
number  M  designated  by  the  user;  when  the  Loader  detects  a  logical  tape  number  M 
in  column  9,    it  continues  reading  and  relocating  (into  core)  instructions  from 
relocatable  binary  card  images  on  tape  M.   Reading  and  relocating  from  tape  3  or 
tape  M  continues  until  an  End-of-File  mark  is  encountered  on  one  of  those  tapes. 
All  loading  is  then  terminated  and  execution  will  begin. 

The  treatment  by  the  Loader  of  the  numbers  N  and  M  in  columns  6  and 
9  of  the  Transition  Card  is  as  follows; 

1)  if  columns  6  and  9  are  both  blank,  the  current  core  contents  are 
written  on  logical  tape  2  and  loading  of  another  core -load  will 
continue  (from  tape  3  or  a  previous  tape  M); 

2)  if  column  6  is  blank  and  column  9  is  non-blank,  loading  into 
core  continues  from  tape  M  (as  specified  in  column  9);  and  no 
core-load  is  written  on  tape  2; 

3)  if  column  6  is  non -blank  and  column  9  is  blank,  the  current 
core  contents  will  be  written  on  tape  N  (as  specified  in  column  6) 
and  loading  of  another  core-load  will  continue  (from  tape  3  °r  a 
previous  tape  M); 

*  If  10  is  to  be  used,  the  user  must  indicate  to  the 
operator  by  means  of  the  $$  comment  card  that  the 
operator  should  have  a  scratch  tape  mounted  on 
logical  unit  number  10.   10  should  be  used  only 
if  no  other  unit  (2,  3;  ^  or  9)  can  be  used. 


Date: 

5A/65 

Section: 

3.2.k. 

Page: 

IT 

Change : 

2 

Por 

thos 

Manual 

k)  if  columns  6  and  9  are  both  non -blank,  the  current  core  contents 
will  be  written  on  tape  N  (as  specified  in  column  6),  and  loading  of 
another  core -load  will  continue  from  the  tape  M  designated  in  column  9' 

When  the  Loader  detects  a  "1"  in  column  12,  the  core-load  (completed) 
or  not)  is  written  on  the  tape  specified  in  column  6.   This  core-load  contains 
the  Loader  table  necessary  for  utilization  of  the  Loader  during  execution  to 
complete  the  loading  of  this  partially  loaded  core  load..   (See  section  3>2,U.15. 
for  use  of  this  feature  ) .   When  the  Loader  detects  a  "2"  in  column  12,  it 
immediately  initiates  the  Full  Core  loading  procedure. 

3.2.^.10.   Loading  Block  Description 

The  loading  block  of  the  standard  system  records  on  the  ping-pong  tape 
has  5  loading  commands  (as  noted  in  the  ID  word)  the  first  three  of  which 
concern  only  an  internal  procedure  used  by  the  Loader  itself  (TABLEN  and  PROG 
are  internal  loader  symbols).   The  fourth  command  is  used  to  load  the  two 
self -load  orders  needed  for  the  first  record  of  two  whenever  a  split-core 
occurs.   The  fifth  command  loads  the  core  load  itself.   The  ID  word  (first 
word  of  loading  block)  is  positive  until  first  split-core  occurs  and  is 
negative  thereafter,  whether  succeeding  cores  are  split  or  not. 

A    -   CORE  LOAD        (NOT  SPLIT) 

PZE   ID,, 5  (MZE  if  this  core  load  occurs 

TTR   ENTRY  after  any  split  core  load) 

CHECKSUM 

DUMPFLAG* 

I0CP  0,,0 

I0CP  TABLEN,, 0 

I0CP  PR^G,,0 

I0CP  0,,0 

I0RT   FIRST  L0CATI0N, ,W0RDS 

C0RE  LOAD 

B  -  SPLIT -CORE  LOAD 

Each  split-core  load  consists  of  two  records,  each  having  the  SAME 
ID  word.   The  second  half  of  the  core  load  appears  first  on  the  ping-pong  tape. 
This  record  has  two  additional  orders  added  by  the  Loader  to  call  in  the  second 
records  belonging  to  this  core  load. 
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FIRST  RECORD 


MZE    ID,, 5 

TTR    SELF  LOAD  ORDER  LOC 

CHECKSUM 

DUMPFLAG* 

I0CP   0,,0 

I0CP   TABLEN, ,0 

I0CP   PR0G,,O 

I0CP   SELF  LOAD  ORDER  LOC,, 2 

(Beginning  of  core) 
I0RT    FIRST  LOC  OF  SECOND  HALF, , WORDS 
TWO  WORDS  CONTAINING  CALL  TO  SYSLSR 
SECOND  HALF  OF  CORE  LOAD 


SECOND  RECORD 


MZE    ID,, 5 

TTR    ENTRY 

CHECKSUM 

DUMPFLAG* 

I0CP   0,,0 

I0CP   TABLEN,,0 

I0CP   PROG,,0 

I0CP   0,,0 

I0RT        FIRST  LOC     OF    FIRST   HALF, , WORDS 

FIRST  HALF  OF  CORE  LOAD 


*DUMPFLAG  is  a  word  that  contains  the  following  information: 
Prefix     =  7 

Decrement  =  highest  location  of  user's  program  to  be  dumped 
Tag       =  3  hits,  b1,  h2,  b3 

b   =  1  if  $  1/0  DUMP  Card  in  job  deck 

b  =  1  if  $  LIBDUMP  Card  in  job  deck 

b   =  1  if  $  DUMP  Card  in  job  deck 

b  and  b   =  1  if  $  FULL  DUMP  Card  in  deck  and  the  Problem 
3       Specification  has  FULL  DUMP  permission 

Address    =  lowest  location  assigned  to  Erasable  Storage 
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3.2.U.11.   SPLIT-CORE  LOADING 

The  entire  core  above  IOOOOq  is  available  for  loading  relocatable 

programs.  A  special  procedure  is  initiated  for  those  program  that  are  too 

large  to  fit  below  the  Loader"s  Subroutines -Present  Table  I(SUBT)  • — 73000o|. 

o 

The  Loader,  by  using  Tape  h   as  temporary  storage  and  Tape  2  (or  the  PING-PONG 

tape  if  different  from  Tape  2),  loads  the  program  in  two  segments,  overwriting 

itself  if  necessary.   If  this  split  core  loading  is  activated,  it  is  so 

annotated  on  the  MAP  with  the  message 

MAP  (SPLIT  CORE-LOAD). 

Since  such  a  procedure,  of  necessity,  takes  slightly  longer  to  load,  it  should 
be  avoided  where  possible,  perhaps  by  placing  variables  and  data  in  COMMON  or 
ERASABLE . 

A  single  program  segment  which  will  not  fit  between  SYS0RG  (Currently 
lOOOOn)  and  the  Subroutines -Present  Table  ('M'3000o)  will  immediately  stop  the 
loading  process  and  the  error  message 

ILLEGAL  USE  OF  SPLIT -CORE  LOADING 

will  be  printed.   This  program  segment  may  be  the  main  program,  a  subroutine, 
or  the  entire  library  subroutine  area  which  is  treated  as  a  single  segment. 
Proper  coding  can  always  further  split  a  main  program  or  subroutine.   If  the 
library  segment  is  too  long,  the  necessary  symbolic  decks  can  be  obtained  from 
the  librarian  to  shorten  this  segment.   These  must  be  included  with  the  user's 
program. 

If  an  absolute  program  tries  to  overwrite  the  loader  the  split  core 
loading  is  not  initiated,  loading  is  terminated  and  the  error  message 

ILLEGAL  LOADING  ADDRESS 

will  be  printed. 

3.2.4.12.   SUBTRACE 

A  diagnostic  procedure  exists  to  trace  dynamically  internal  calls  to 
subroutines.   This  procedure  requires  a  single  $  SUBTRACE  control  card  among 
the  first  set  of  $  control  cards  and  the  use  of  the  following  library  routines 
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CALL  0NTRAC       which  turns  subroutine  tracing  on,  and 
CALL  0FTRAC       which  turns  it  off, 
(These  routines  must  be  called  in  each  core  load  where  they  are  required.) 
The  $  SUBTRACE*  control  card  initiates  a  special  linkage  which  enables  the  message 

SUBROUTINE  'NAME'  CALLED  FROM  XXXXX 

to  be  printed  every  time  a  subroutine  is  called.   It  should  be  kept  in  mind 
when  using  this  feature  that  the  following  additional  locations  will  be 
required.   A  SUBTRACE  table  is  generated  and  located  at  the  end  of  the  program 
and  occupies  h   X  N  locations ,   where  N  is  the  total  number  of  subroutines  in  the 
program.   The  subtrace  routine  itself  requires  130o  locations. 

SAMPLE  PROGRAM 

$  FASTRAN,  G0,  SUBTRACE 
C0MM0N  A 
A  =  1.0 
CALL  0NTRAC 
B  =  C0S  ( .707) 
WRITE  0UTPUT  TAPE  6,    1,   A 
1  F0RMA.T  (lRb012) 
END 

The  printed  output  from  this  program  would  be 

SUBROUTINE  COS  CALLED  FROM 

SUBROUTINE  (STH)  CALLED  FROM 

SUBROUTINE  (FIL)  CALLED  FROM 

201^00000000 

SUBROUTINE  SYSTEM  CALLED  FROM 


10011 

10015 

10021 
10022 


*SCATRE  users  are  warned  against  using  $  SUBTRACE  if  their  program  uses  entry 
points  to  transmit  information  between  different  programs. 


3.2.^-.13.   Missing  Subroutine  Procedure 

When  the  Loader  discovers  that  there  are  missing  subroutines  it 
prints  out  the  following  message  to  the  user 

SUBROUTINES  NOT  AVAILABLE  FROM  THE  LIBRARY 
(Subroutine  names  are  then  listed) 
EXECUTION  WILL  PROCEED  FOR  15  SEC.  OR  UNTIL  A  MISSING  SUB.  IS  CALLED 

A  special  tracing  linkage  is  made  such  that  if  the  missing  subroutine  is 
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actually  called  before  the  15  second  clock  trap  is  executed,  the  message 

SUBROUTINE  XXXXXX  CALLED  FROM  XXXXX 

is  printed,  and  an  exit  is  made  through  SYSERR  (which  will  provide  a  dump  if  a 
dump  control  card  was  present).   This  procedure  adds  100  additional  locations 
to  the  program  length. 

3.2.k.lk.      Routine  to  SAVE  CORE 

There  is  available  to  the  user  a  Library  Subroutine  (L1-U0I-SVC1-71-SR) 
that  enables  the  user  to  save  core  memory  as  a  Standard  Binary  System  Record. 
Up  to  ten  blocks  of  core  memory  can  be  saved  on  a  specified  tape  unit  or  on  a 
specified  disk  cylinder.  If  the  disk  is  not  available,  or  if  there  is  a  disk 
failure  during  the  attempt  to  write  the  record,  or  if  a  record  Is  larger  than 
lQ6k0  words,  then  the  user  has  the  option  of  providing  a  specified  backup 
tape  which  will  be  used. 

The  records  saved  can  be  reloaded  from  the  disk  or  tape  by  SYSLSR.  The 
records  can  be  also  reloaded  from  tape  by  SEQPGM  or  SELPGM.  The  writeup  for  this 
routine  is  available  in  Room  165  ERL. 

3.2.U.15.   Use  of  Loader  During  Execution 

Two  subroutines  on  the  library  tape  enable  the  user  to  call  the 
System  Loader  during  execution  time.   GTLD1  (L1-U0I-GTLD1-72-SR)  makes  it 
possible  to  load  programs  generated  either  before  or  during  execution  time, 
or  to  complete  the  loading  of  a  partially  loaded  Ping- Pong  record,  all  under 
a  flexible  parameter  control.   Another  routine,  GTLD2  (L1-U0I-GTLD2-7  3-SR) , 
has  a  simpler  calling  sequence  and  requires  less  storage  than  GTLD1,  and  could 
be  used  for  simple  load-and-go  problems.   It  will  load  a  program  generated 
either  before  or  during  execution  from  an  indicated  execution  tape  and  then 
execute  it.   Writeups  for  these  subroutines  are  available  in  Room  165  ERL. 
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which  were  generated  by  the  last  instruction  executed  (e.g.,  floating  point 
traps),  what  one  wants  is  the  address  of  the  last  instruction  executed. 
Therefore,  the  address  printed  is  the  address  stored  in  the  flag  cell  less  one. 

3.2.  5  .^-.   Machine  Status  and  Trap  Programming 

A  trap  may  occur  between  any  two  instructions  (with  certain  exceptions 
which  are  not  discussed  here).   In  particular,  it  can  occur  in  the  middle  of  an 
arithmetic  computation.   Therefore,  the  program  which  receives  control  from  the 
trap  cell  must  save  the  contents  of  any  machine  register  which  it  will  use  or 
which  will  be  used  by  subroutines  on  which  it  calls.   The  machine  registers  (and 
two  conditions)  are  divided  into  three  classes  here  for  the  sake  of  easy  reference 
later. 

Class  1  Class  2  Class  3 

Index  Registers    AC  Sense  Lights 

_  , .         .,_  Divide  Check  Light 

Sense  Indicators   MQ,  .,_  _    „,    T  .  ° , 

MQ  Overflow  Light 

AC  Overflow  Light     i/O  Check  Light 

Floating  Point  Trap  on  or  off 

Multiple  Tag  Mode  on  or  off 

Class  1  contains  the  registers  which  are  normally  preserved  by  subroutines. 

Class  2  adds  the  registers  most  likely  to  be  used  by  any  trap  processing  program. 

Class  3  a(3ds  virtually  all  the  important  remaining  registers  and  lights  on  the 

machine. 

Most  trap  processors  never  touch,  and  therefore  need  not  save,  Class  3 
registers,  since  even  I/O  can  be  accomplished  without  them.   From  this  point  on 
the  terms  machine  conditions  or  machine  status  will  refer  to  the  combination  of 
Class  1  and  Class  2  unless  otherwise  stated. 

The  general  flow  in  a  trap  processor,  then,  is:   l)  save  machine  con- 
ditions, 2)  process  the  trap,  3)  restore  machine  conditions,  and  k)    return  to 
trapped  program.   In  the  case  of  a  condition  which  is  considered  fatal,  step  h, 
and  often  step  3>  is  skipped. 

In  the  PORTHOS  system,  when  any  trap  occurs,  such  as  a  floating  point 
trap,  a  memory  protect  trap,  or  a  channel  trap,  all  the  registers  of  the  user's 
program  are  saved  by  the  Low  Core  Execution  Coordination  routines.   If  the  user 
has  specified  a  trap  exit  to  his  program  for  that  particular  type  of  trap,  control 
will  be  sent  to  the  desired  location,  but  the  registers  will  contain  other 
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information  than  what  they  held  at  the  time  of  the  trap. 

When  the  user  returns  to  Low  Core  (by  executing  a  TRA  1,U),  the  original 
contents  of  the  registers  are  restored,  and  execution  of  the  program  resumes  at 
the  point  where  the  trap  occurred. 

This  sequence  of  operations  has  been  used  in  the  PORTHOS  System  for 
several  years.   Previously,  however,  the  Sense  Indicator  Register  was  not  used  for 
any  purpose  by  Low  Core,  and  its  contents  could  be  changed  at  trap  time  without 
affecting  program  operation.   The  current  version  (1/1/65)  of  the  PORTHOS  System 
makes  use  of  the  Sense  Indicator  Register,  so  that  any  change  made  to  it  (or  any 
other  register)  by  the  user's  program  when  it  receives  control  from  a  trap  exit 
will  be  lost  when  the  conditions  are  restored. 

3.2.5.5.  Core  Storage  Clock 

3.2.5.5«1»   Description  of  Equipment 

Sixty  times  every  second,  keyed  to  the  power  line  frequency  as  an  electric 
clock  is,  the  main  frame  program  is  suspended  between  instructions  for  two  machine 
cycles.   During  these  two  cycles  positions  1-35  of  core  storage  location  5  are  sent 
to  adders  1-35*  an  internally  generated  1  is  added,  and  adders  P,  1-35  are  returned 
to  positions  S,  1-35  of  location  5-   If;  when  the  1  is  added,  an  arithmetic  overflow 
occurs,  a  standard  hardware  trap  occurs  if  the  trap  is  enabled.   The  accumulator 
overflow  light  is  not  turned  on. 

The  incrementation  of  location  5  occurs  whenever  power  is  supplied  to 
the  709^+  and  a  manual  clock  switch  is  on,  whether  the  machine  is  in  automatic  or 
manual  status.  An  overflow  occurring  while  the  machine  is  in  manual  status  causes 
a  trap  which  is  remembered  and  is  effective  as  soon  as  automatic  status  is  resumed. 

3.2.5.6.  Protection  Mode  (Memory  Protect) 

Two  seven  bit  registers  (lower  bound  and  upper  bound)  are  used.   When 
operating  in  the  protection  mode,  any  CPU  generated  storage  address  is  compared 
against  these  two  registers.   If  the  high  order  seven  bits  of  the  relocated  address 
is  less  than  the  contents  of  the  lower  bound  register  or  greater  than  the  contents 
of  the  upper  bound  register,  a  trap  occurs.   The  location  counter  is  placed  in 
location  32  and  control  is  transferred  to  a  routine  in  low  core  which  checks  the 
trapped  instruction.   The  current  protected  area  is  0  through  7777o-   The  protect 
routine  allows  execution  of  the  following  instructions: 
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CLA 

ANYTHING, 

TAG 

CAL 

ANYTHING, 

TAG 

LDQ 

ANYTHING, 

TAG 

NZT 

ANYTHING, 

TAG 

ZET 

ANYTHING, 

TAG 

TRA 

l,h 

TSX 

TV,U 

TTR 

TV 

TRA 

TV 

CAQ 

CRQ 

CVR 

Indirect  addressing  allowed. 


(return  to  the  trap  processor) 

where  TV  is  a  location  in  the 
system  transfer  vector  in 
Low  Core 


If  the  trapped  instruction  is  not  one  of  the  above,  an  error  message  is 
printed  and  execution  is  terminated,  unless  the  user  has  made  other  provisions  (see 
3.2.5.11.  -  SYSSPR).   The  execution  of  the  following  instructions  is  blocked  and  a 
protect  trap  occurs: 

LRI,  LPI,  ENB,  RCT,  RCH,  RDC,  LCH,  TEF,  TRC,  TCO,  TCN,  RUN, 

WEF,  BSF,  BSR,  RDS,  WRS,  ETT,  BTT,  IOT,  ECTM,  ESNT,  LSNM, 

EFTM,  LFTM,  ETM,  LTM,  SDN,  i/O  Sense  and  ESTM. 

Attention  is  also  given  to  the  case  where  reference  is  made  to  low  core 
locations  in  input/output  operations. 

Because  low  core  governs  all  I/O  operations,  it  is  essential  that  it  be 
a  memory  protected  area.   If  locations  in  low  core  were  unintentionally  changed, 
spurious  error  messages,  machine  hangups,  and  other  costly  and  time  consuming  delays 
could  occur. 

3.2.5.7.   Input /Output  Programming 

3.2.5.7.I.   Description  of  Equipment 

Input  and  output  on  the  'JO^h   is  done  by  means  of  special  purpose  stored 
program  devices  known  as  data  channels .   There  are  two  general  classes  of  channels. 
Only  the  7607,  which  is  used  to  operate  card  readers,  printers,  punches,  and  729  tape 
drives  will  be  discussed  here.   A  more  sophisticated  channel,  the  7909;  is  used  to 
operate  1301  disk  files,  73^0  hypertapes,  and  1^1^  synchronizers  for  remote  and 
specialized  i/O  devices. 

The  7607  channel  executes  a  program  from  locations  in  core  storage,  just 
as  the  CPU  does.   There  is  a  location  register,  corresponding  to  the  instruction 
location  counter  in  the  CPU,  which  normally  advances  by  1  after  the  decoding  of  every 
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channel  command  (another  name  for  an  instruction,  which  will  be  used  to  keep 
references  straight  when  discussing  CPU  and  channels). 

3.2.5.7.2.   Main  Frame  Instructions 
There  are  three  main  classes  of  CPU  instruction  involved  in  the  use  of 
data  channels.   One  is  the  class  of  select  instructions.   These  cause  the  channel 
to  send  the  necessary  control  signals  to  prepare  an  i/O  unit  for  use,  and  to  ready 
those  circuits  which  will  he  used  during  channel  operations  (e.g.,  read  or  write 
circuits).   The  second  class  is  comprised  of  two  instructions,  the  load  channel  (LCH) 
and  reset  and  load  channel  (RCH) .   Both  of  these  cause  the  channel  to  begin  executing 
a  channel  program  with  the  location  given  in  the  instruction.   The  LCH  waits  until 
the  channel  sends  a  signal  indicating  its  readiness  to  accept  a  new  program.   The  RCH 
causes  the  channel  program  in  progress,  if  any,  to  be  stopped,  and  the  new  program  to 
be  begun  immediately.   Thus,  a  common  select  sequence  is,  for  example: 

RTBX    3 

RCHX    PGM 


PGM    IORT    CARD,, 2 8 
The  third  class  is  composed  of  instruction  used  to  determine  the  status 
of  channel  activity.   Among  these  are  TCO,  TCN,  TRC,  TEF,  BTT,  ETT.   Also,  there  is 
the  store  channel  instruction  (SCH)  which  places  the  current  contents  of  various 
channel  registers  into  a  storage  location  so  they  may  be  examined  by  the  CPU  program. 
See  the  709^  Reference  Manual  for  detailed  descriptions  of  these  instructions. 

3.2.5.7.3.   Channel  Commands 

All  channel  commands  have  the  general  form  of  a  class  of  CPU  instructions 
called  type  A  main  frame  instructions,  in  which  the  operation  code  is  contained  in 
the  prefix,  an  address  is  specified  in  bits  21-35.?  and  a  word  count  occupies  bits  3-17- 
Each  command  causes  the  transmission  through  the  channel  of  n  words  of  information, 
starting  with  the  location  specified  in  the  address,  and  continuing  to  transmit  in 
the  direction  of  increasing  addresses.   (This  is  often  referred  to  as  "forward  in 
core,"  as  opposed  to  the  method  in  which  MAD  and  FASTRAN  vectors  are  stored,  which 
is  referred  to  as  "backward  in  core.")   This  transmission  continues  until  the  condition 
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specified  "by  the  operation  code  is  satisfied.   The  reader  is  referred  to  the  709^ 
Reference  Manual  for  details. 

Of  particular  importance  is  the  T-type  command  (for  "transfer"  or  "trap"), 
signified  "by  a  1  in  bit  2  of  the  command  which  indicates  the  end  of  a  channel  program. 
When  the  condition  for  such  a  command  is  satisfied,  a  signal  is  sent  to  the  CPU  to 
indicate  the  channel's  readiness  to  begin  a  new  channel  program.   If  the  CPU  does 
not  provide  a  new  program  (via  an  LCH  instruction)  within  a  certain  time  interval,  a 
command  trap  will  occur  if  the  command  trap  feature  for  the  channel  is  enabled.   This 
sets  a  status  bit  to  indicate  the  type  of  trap.   Whether  the  trap  is  enabled  or  not, 
the  channel  disconnects  and  is  available  for  further  use.   Since  in  most  channel 
programs  this  condition  occurs  at  an  end-of -record  on  tape,  it  is  often  referred  to  as 
an  EOR  trap.   If  the  command  trap  is  not  enabled,  the  signal  resulting  from  completion 
of  the  T-type  command  remains  until  an  enable  permits  a  trap  to  occur,  or  until 
another  select  is  issued  on  that  channel.   Unless  this  latter  select  operation  is 
given  purposely,  the  trap  signal  which  was  waiting  will  be  accidentally  lost  before 
it  has  been  processed,  causing  logical  programming  errors  in  I/O.   For  this  reason, 
all  programming  which  makes  use  of  the  channel  traps  requires  a  centralized  set  of 
I/O  routines  to  avoid  such  errors. 

Two  further  comments  about  command  traps  are  in  order.   First,  an  IOCD 
command  may  be  considered  an  IOCT  that  does  not  generate  a  trap  signal.   Second, 
whenever  a  tape  mark  (End-of -File)  is  encountered  while  reading  a  tape,  the  channel 
disconnects  immediately  and  turns  on  the  end-of -file  trigger.   If  the  command  trap 
for  this  channel  is  enabled,  an  interrupt  occurs.   If  it  is  not  enabled,  the  EOF 
trigger  remains  on  until  it  is  turned  off  by  a  TEF  instruction,  or  until  the  command 
trap  for  that  channel  is  enabled  and  an  interrupt  occurs.   If  the  EOF  trigger  is  not 
turned  off  in  one  of  these  ways,  it  will  remain  on  through  successive  tape  reads  or 
writes  and  gives  spurious  end-of -file  conditions. 

3° 2.  5  «7  "^-o   Parity  Checking  and  Redundancy  on  Tape 
When  709^-  words  are  written  on  tape  they  are  written  in  6  bit  groups 
called  "bytes ",  6  bytes  to  the  word.   To  each  byte  a  7th  bit  is  added  so  that  either 
the  number  of  l's  in  the  7 -bit  group  is  odd,  in  which  case  the  tape  is  said  to  be 
written  in  odd  parity  or  binary  mode,  or  it  is  even,  in  which  case  the  tape  is  said 
to  be  written  in  even  parity  or  BCD  mode.   The  mode  of  tape  reading  or  writing  is 
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determined  by  the  presence  or  absence  of  a  bit  in  position  31  of  the  select 
instruction,  1  for  binary,  0  for  BCD.   BCD  tapes,  in  addition  to  being  written 
in  even  parity,  have  bytes  which  differ  from  the  7090  bit  patterns  as  delivered 
to  the  channel.   This  conversion  is  carried  out  automatically  and  need  not  concern 
a  programmer,  except  that  the  6  bit  configuration  001010  cannot  be  written  and 
read  from  a  BCD  tape.   The  exact  description  of  this  conversion  will  not  be 
discussed  here,  nor  will  the  reasons  for  its  existence. 

In  addition,  at  the  end  of  every  tape  record  an  extra  byte  is  added 
with  the  necessary  l's  to  make  the  number  of  bits  in  each  of  the  seven  recording 
tracks  even , 

During  every  tape  read,  or  the  check  read  of  every  tape  write  operation, 
the  parity  of  each  byte  is  compared  with  that  specified  by  the  select  instruction. 
If  they  do  not  match,  the  tape  check  trigger  is  turned  on.   This  is  known  as 
lateral  parity  checking.   The  7  tracks  are  also  checked  for  an  even  number  of 
bits,  and  if  this  does  not  occur,  the  same  tape  check  trigger  is  turned  on.   If 
the  redundancy  trap  for  that  channel  is  enabled,  the  channel  disconnects  as  soon 
as  the  trigger  comes  on,  and  a  trap  occurs,   Note  that  all  channel  transmission 
stops  immediately  in  this  case.   If  the  redundancy  trap  is  not  enabled,  the  channel 
program  is  completed,  and  the  tape  check  trigger  remains  on  until  it  is  turned  off 
by  a  TRC  instruction,  or  redundancy  trap  is  enabled  and  a  trap  occurs.   Note  that 
failure  to  turn  off  this  trigger  in  one  of  the  two  ways  described  above  will  cause 
every  succeeding  record  read  or  written  to  appear  redundant  when  checked. 

3.2„5»7-5-   Data  Selects  and  Non-data  Selects 

A  data  select  is  one  which  causes  actual  reading  or  writing,  i.e.,  an  RDS 
or  VERS.   A  non-data  select  is  one  which  issues  a  tape  unit  control  not  involving 
data  transmission,  i.e.,  BSR,  BSF,  WEF,  REW.   (See  the  709U  Reference  Manual  for 
exact  descriptions  and  how  select  instructions  can  be  stacked.)   Note  that"   l) 
data  selects  use  the  channel  throughout  their  operation,  2)  BSR  and  BSF  use  the 
channel  for  only  3  cycles,  but  the  tape  control  is  in  use  until  the  end  of  the 
backspace  (a  TC0  will  not  transfer),  and  3)  after  a  tape  unit  accepts  an  REW  or 
RUN  signal,  both  the  channel  and  the  tape  control  are  free. 
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3.2.5.7-6.   Channel  Trap  Control 

There  is  a  mask  register  for  the  channel  traps  which  is  loaded  from 
a  storage  location  "by  an  enable  (ENB)  instruction.  The  ENB  also  turns  on  the 
main  trap  control  trigger,  in  case  it  has  been  turned  off  by  a  previous  trap. 
The  positions  of  the  mask  register  which  control  the  redundancy  trap  feature 
are  loaded  from  "bits  10-17,  those  which  control  the  command  trap  feature  from 
hits  28-35-  Bits  17  and  35  are  associated  with  channel  A,  hits  16  and  3^  with 
channel  B,  etc. 

Another  instruction,  restore  channel  traps  (RCT),  turns  on  the  main 
trap  control  trigger  without  affecting  any  mask  registers.  Since  there  can  be 
more  than  one  mask  register  on  a  709^-  (relocation  registers,  bounds  registers, 
etc),  this  instruction  name  is  a  misnomer. 

All  the  channel  flag  and  trap  cells  are  located  together  in  a  block 
of  core.   There  are  separate  locations  for  each  channel. 

Channel  Flag  Cell  (octal)         Trap  Cell  (octal) 

A  00012  00013 

B  OOOlU  00015 

C  00016  00017 

D  00020  00021 

E  00022  00023 

F  0002^-  00025 

G  00026  00027 

H  00030  00031 

When  a  trap  occurs,  the  following  status  bits  are  placed  in  the  decrement  of 

the  flag  cell. 

Bit       Meaning 

15  EOF  command  trap 

16  Tape  check 

17  EOR  command  trap  (actually,  end  of  channel  program  trap) 

3.2.5.7.7.   Select  Routines 

There  are  two  select  routines,  one  for  data  selects  (such  as 
SYSRUB),  which  also  prepares  channel  programs  and  trap  exits,  and  one  for 
non-data  selects  (such  as  SYSBSR).   They  will  be  described  as  one  here,  and 
the  extra  features  of  the  data  select  routines  discussed  later. 

Each  entry  point  loads  the  MQ  with  a  basic  select  instruction 
corresponding  to  that  entry,  and  then  a  common  part  of  the  code  is  entered. 
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Index  Registers  1,  2  and  h   and  the  indicators  are  saved,  and  a  special  subroutine 
is  called  which  determines  the  physical  unit  specified  by  the  logical  tape  number, 
checks  for  a  valid  logical  tape,  channel,  and  unit  number,  and  then  if  everything 
checks,  forms  the  select  instruction  by  OR'ing  in  the  channel  and  unit  numbers 
into  the  indicators.   The  completed  select  instruction  is  in  the  MQ,  and  the 
indicators  on  return,  and  the  channel  number  (l  for  A,  2  for  B,  etc,)  is  in  IR2„ 
From  this  point  on  all  references  to  scratch  areas  or  instructions  which  are 
different  for  different  channels  are  done  by  tagging  such  references  with  IR2. 

Immediately  after  this,  a  call  is  made  to  another  special  routine 
(called  CHKACT).   This  routine  turns  on  the  channel  traps,  and  delays  until  the 
channel  is  inactive.   This  assures  that  no  select  will  be  given,  causing  a 
possible  loss  of  trap,  until  the  trap  has  had  a  chance  to  occur,   (A  tape  may 
still  be  in  motion  completing  a  backspace  when  the  channel  becomes  "inactive".) 
Notice  that  the  results  of  the  work  done  so  far  are  in  the  IKD,  MQ,,  and  IR's 
1,  2  and  k.      Only  the  contents  of  these  registers  are  necessary  to  proceed  from 
this  point,  should  a  channel  trap  occur  while  in  the  delay  loop.   This  information 
will  be  saved  when  a  channel  trap  occurs,  and  restored  when  a  return  is  made  to  the 
interrupted  program.   Thus,  the  same  routine  may  be  called  from,  say,  an  EOR  trap 
exit  program,  and  the  original  call  will  be  processed  correctly,  so  long  as  the 
return  to  the  trap  processor  is  made  before  another  interrupt  on  the  same  channel 
occurs , 

After  the  return  from  CHKACT  the  select  instruction,  logical  tape 
number,  and  IRk   for  that  call  are  stored  in  scratch  cells  for  that  channel  for 
possible  later  use  by  the  Channel  Trap  Processor.   The  select  is  given,  and  a 
return  is  made  to  the  calling  program. 

If  the  routine  called  was  a  data  select  routine,  more  processing 
is  required  before  the  select  is  issued  and  the  return  made.   The  specifications 
for  all  the  trap  exits  are  saved  in  scratch  areas  for  the  channel  specified. 
Then  the  channel  program  given  by  the  calling  program  is  checked  for  proper 
formation.   To  relieve  an  otherwise  impossible  task  in  error  recovery  in  the 
Channel  Trap  Processor,  the  restriction  is  made  that  the  channel  program 
given  read  only  one  record  or  write  only  one  record. 
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An  acceptable  Channel  program  is  one  which  meets  the  following 
conditions : 

(1)  a)   it  contains  no  IOCD  command  (if  a  tape  read  or  write ),  or 
b)   it  contains  only  CPYP  and  CPYD  commands  (if  a  disk  read  or 

write ); 

(2)  it  does  not  refer  to  locations  0  through  7T77o  unless  the 
command  in  question  is  non-transmitting; 

(3)  a)   it  contains  an  IORT,  IOST,  or  an  IOCT  command  which  is 

preceded  by  at  most  29  "non-transfer  commands"  (if  a  tape 
read  or  write),- or 
b)   it  contains  a  CPYD  command  which  is  preceded  by  at  most  29 
CPYP  commands  (if  a  disk  read  or  write). 

Condition  (l)  is  present  to  allow  the  trap  processor  to  handle  its 
share  of  the  bookkeeping.   Condition  (2)  is  present  as  a  protective  measure. 
(See  section  3-2. 5 .6.  concerning  Protection  Mode.)  A  discussion  of  condition 
(3)  follows: 

Beginning  with  the  first  command,  conditions  (l)  and  (2)  are  checked. 
If  both  conditions  are  met,  the  command  is  moved  to  a  fixed  place  in  Low  Core. 
If  a  "TCH  LOC"  command  is  encountered,  the  TCH  command  is  not  moved;  the  command 
at  LOC  is  checked  and  then  it  is  moved  into  Low  Core.  Upon  encountering  an 
IOCT,  IORT,  or  IOST  (CPYD  in  case  the  disk  is  being  used)  command,  the  checking 
program  considers  this  to  be  the  last  command  in  the  list;  after  it  is  moved  into 
Low  Core,  the  list  is  complete.   There  is  room  for  as  many  as  30  legal  channel 
commands  (excluding  TCH's).   Indirect  addressing  is  allowed. 

Condition  (3)>  therefore,  assures  that  in  case  of  redundancy  retries 
the  entire  channel  program  is  then  available  in  Low  Core. 

If  any  of  the  above  3  conditions  are  not  met,  execution  is  terminated 
with  an  error  message. 

The  freedom  gained  by  the  above  procedure  imposes  one  restriction. 

Channel  programs  of  the  type 

IOCP   *+l,,l 
IOCP   **,,** 

cannot  be  used,  since  the  commands  are  not  executed  from  their  original  location. 

If  the  call  specifies  it,  (See  section  6.2.U.11.)  the  i/O  operation  will  be 

performed  in  such  a  way  that  the  Channel  Trap  Processor  will  make  no  attempt  at 
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retrying  the  operation  should  a  tape  check  occur,  but  will  exit  immediately  to 
the  redundancy  exit  specified  by  the  user. 

After  the  channel  program  has  been  moved  and  checked,  the  select  is 
issued  as  above,  the  channel  program  started  with  an  RCH,  and  a  return  is  made 
as  for  non-data  selects. 

3.2. 5 -1 .8»   The  Channel  Trap  Processor 

When  a  channel  trap  occurs,  IR2  is  immediately  saved  and  loaded  with 
the  channel  number,  which  is  then  used  in  all  channel-dependent  references  as 
it  is  in  the  select  routines.   Machine  conditions  are  saved  in  a  set  of  cells 
for  that  channel.   The  status  flags  for  the  trap  are  examined.   If  it  was  a 
tape  check  trap,  action  fully  described  below  is  taken.   If  it  was  an  EOF  trap, 
and  the  user  specified  an  EOF  exit,  the  exit  is  taken.   If  it  was  an  EOR  trap, 
the  ETT  trigger  is  tested,  and  if  on  and  the  user  specified  an  exit,  the  exit 
is  made.   If  neither  trigger  is  on,  and  the  user  specified  an  EOR  exit,  it  is 
taken.   If  the  ETT  trigger  is  on,  and  the  user  did  not  request  an  exit  for  that 
condition,  the  tape  in  question  is  terminated  with  an  end-of-file,  and  the  tape 
is  rewound  and  unloaded.   A  comment  is  printed  to  the  operator  to  replace  the 
tape,  and  a  pause  occurs.   Should  this  occur  on  a  scratch  tape  during  execution, 
and  the  user  is  writing  on  a  regular  scratch  tape,  or  is  writing  his  own  tape 
and  he  has  not  provided  another  one,  the  operator  will  consider  this  an  error 
and  terminate  the  job.   On  EOR  and  EOF  conditions  the  interrupted  program  is 
resumed  immediately  (after  restoring  machine  conditions),  if  the  calling 
program  did  not  specify  an  exit, 

When  a  tape  check  occurs,  the  information  left  by  the  select  routine 
is  examined.   If  the  I/O  operation  was  performed  with  an  indication  for  an 
immediate  return  a  redundancy  exit  is  made  immediately.   The  tape  is  positioned 
after  the  redundant  record  in  this  case.   The  trap  processor  will  re-read  or 
re-write  the  record  in  question  up  to  9  times.   The  tape  is  backspaced,  and  the 
retry  count  increased  by  one.   If  the  retry  count  is  larger  than  9  when  writing 
or  reading,  an  RTT  exit  is  taken,  if  specified.  At  this  point  the  tape  is 
positioned  before  the  redundant  record. 

If  no  RTT  exit  was  specified,  the  tape  operation  will  be  attempted  at 
most  U5  times.   If  the  total  exceed  ^5  and  the  operation  was  a  write,  a  comment 
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specifying  the  tape  unit,  the  select  operation  and  the  number  of  retries  made,  is 
printed  on-line.   Opportunity  is  then  given  to  the  operator  to  intervene.   If  the 
operation  was  a  read,  one  attempt  is  made  to  read  the  tape  in  the  opposite  mode.   If 
it  is  unsuccessful,  the  above  described  error  procedure  is  followed.   If  it  is 
successful,  the  user  is  notified  that  he  was  reading  the  tape  in  the  wrong  mode, 
and  the  job  is  terminated  via  SYSERR. 

If  the  retry  is  successful,  a  comment  is  printed  (on-line  only)  with 
the  same  information  contained  in  the  comment  made  above  in  case  of  unsuccessful 
recovery.   The  trapped  program  is  then  resumed,  or  an  EOR  exit  taken  if  specified. 

On  EOR  and  RTT  exits,  the  following  information  is  available. 

AC,...  „  count  of  words  transmitted  (see  restrictions  below) 
21-35 

IR1     complement  of  the  location  containing  result  of  SCH 

instruction  after  trap  occurred 

The  word  count  is  the  number  of  words  transmitted  by  the  last  channel 
command  executed. 

When  a  program  received  control  from  the  Channel  Trap  Processor  at  an 
exit  location,  it  may  call  on  a  select  routine  to  process  the  same  tape,  another 
tape  on  the  same  channel  as  the  one  which  trapped,  or  a  tape  on  a  different 
channel.   If  a  call  to  a  data  select  routine  is  made  for  a  unit  on  the  same 
channel,  the  return  to  the  trap  processor  must  be  made  during  the  read  or  write 
start  time  of  the  tape  (i.e.,  before  the  first  tape  character  is  transmitted). 
This  varies  with  tape  drive  model  and  read  or  write  status.   A  good  rule  is 
"as  soon  as  possible,  never  more  than  2  ids,"  The  best  practice  is  for  the  exit 
program  to  set  a  flag  which  may  be  tested  in  the  main  program  for  an  indication 
of  the  appropriate  condition,  and  not  to  enter  the  select  routine  from  the  trap 
exits.   Return  to  the  trap  processor  is  via  a  TRA  l,k.      See  Section  6  for 
descriptions  of  SYSRUD  and  other  pertinent  tape  handling  routines.   Remember: 
this  time  limit  applies  only  after  a  select  is  made  on  the  same  channel. 

3-2. 5-7 -9-   Special  Tape  Handling  Routines 
SYSSKF  and  SYSSKR  are  special  select  routines  which  initiate  an  RDS 
with  the  redundancy  trap  for  the  channel  off.   Self-contained  channel  programs 
cause  one  file  or  one  record  to  be  passed  on  the  tape,  after  which  a  command  trap 
occurs.   A  count  was  specified  in  the  call,  and  at  each  trap  this  count  is 
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decremented  by  one.   If  non-zero,  the  select  is  reissued  and  the  channel  is  started 
to  skip  another  record  or  file.   Control  is  then  returned  to  the  trap  processor  to 
resume  the  trapped  program.   Immediately  after  the  first  skip  is  started  control  is 
returned  to  the  calling  program.   Throughout  the  skipping  main,  frame  programs  and 
operations  on  other  channels  may  be  running. 

Another  special  routine  is  SYSLSR,  which  is  used  to  load  and  checksum 
standard  system  records .   This  routine  reads  with  the  traps  off  and  instead  uses 
a  very  complicated  channel  program.   There  is  no  return;  control  is  instead  given 
to  the  entry  point  of  the  record  loaded.   Index  registers  are  preserved. 

SYSTOW  is  a  routine  which  determines  whether  a  tape  is  logically  active 
and  takes  various  actions  as  described  in  Section  6.  A  tape  is  logically  active 
only  when  it  is  completing  a  data  select  or  WEF  operation. 

SYSATN  allows  the  calling  program  to  determine  to  which  physical  unit 
a  logical  tape  is  currently  assigned.   This  is  useful  for  printing  comments  to 
the  operator. 

3. 2. 5 . 1  > 10 o   Peripheral  Tape  Buffering  Routines 

There  are  the  routines  SYSRIT,  SYSLIT,  SYSWOT,  SYSPCD,  SYSPCB,  and 
SYSPPD,  which  accomplish  singly  buffered  reading  and  writing  of  the  system 
peripheral  input  and  output  tapes.   See  Section  6  for  details  on  calling 
sequences . 

Each  routine  calls  SYSTOW  to  delay  until  its  buffer  is  ready,   A 
record  is  then  transmitted  to  or  from  the  buffer,  a  data  select  routine  is  called 
to  empty  or  fill  the  buffer,  and  a  return  is  made  to  the  calling  program,   SYSWOT, 
SYSPCB,  SYSPCD,  and  SYSPPD  write  on  the  output  tape.   SYSRIT  and  SYSLIT  interpret 
the  look-ahead  codes  on  the  input  tape  to  determine  the  mode  of  the  next  record. 
If  the  look-ahead  information  is  wrong,  the  job  will  be  terminated  with  an 
appropriate  comment.   A  record  is  assumed  to  be  in  BCD  mode  unless  the  look -ahead 
on  the  previous  record  indicates  it  is  binary. 

SYSLIT,  the  alternate  entry  to  SYSRIT,  simply  bypasses  the  tape  read 
section  before  returning  to  the  calling  program. 

There  is  a  complete  set  of  auxiliary  routines  to  open  and  close 
buffers,  etc.,  which  are  used  by  various  system  components  when  necessary.   They 
are  not  avilable  to  a  job  at  execution  time. 
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3.2.5.8.   Floating  Point  Trap 

3.2.5.8.1.   General 

Whenever  an  AC  or  MQ  overflow  or  underflow  occurs  during  a  floating 

point  operation,  a  trap  occurs  at  the  end  of  the  operation.   The  flag  cell  is 

location  OOOOOq;  the  trap  cell  is  location  OOOlOn.   At  this  time  status  bits 

are  stored  in  the  flag  cell  to  indicate  the  specific  error  which  caused  the 

trap.   These  bits  are: 

Dn      Value 

double  precision  address  error  occurred 
no  double  precision  address  error 

AC  and  MQ  were  being  used  as  one  long 
register  (add,  subtract,  multiply) 

1       MQ  was  not  an  extension  of  AC 
(single  precision  divide) 

15  0       condition  was  an  underflow 

1       condition  was  an  overflow 

16  1       condition  occurred  in  AC  (may  occur  in 

combination  with  17) 

0       condition  did  not  occur  in  AC 

17  1       condition  occurred  in  MQ 

0       condition  did  not  occur  in  MQ 
The  floating  point  trap  processor  receives  control  whenever  a  floating 
point  trap  occurs.   Since  it  might  very  often  be  the  case  that  a  second  order 
underflow  exists  while  the  first  order  part  of  the  number  is  correct  (the  second 
order  part  will  be  lost  in  any  case  when  single  precision  instructions  are  used), 
the  trap  processor  must  decide  whether  a  floating  point  trap  indicates  a  fatal 
or  non-fatal  condition.   If  non-fatal,  a  return  is  made  immediately  to  the 
trapped  program.   If  fatal,  machine  conditions  are  saved  for  the  post-mortem 
dump,  if  requested  by  the  user,  and  a  system  error  exit  is  taken. 

Any  overflow  is  considered  fatal,  since  a  second  order  overflow  cannot 
occur  without  a  first  order  overflow.   Normally  any  first  order  underflow  is 
fatal.   All  second  order  underflows  are  non-fatal  and  are  ignored. 

3.2.5.8.2.   System  Floating  Point  Trap  Procedure 

When  a  job  is  begun,  the  floating  point  trap  cell  is  linked  to  .FTRAP, 
the  entry  point  to  the  Low  Core  floating  point  trap  processor.   At  execution  time, 
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when  the  user's  program  receives  control  of .  the  machine,  floating  point  trap  mode 
is  on.   A  description  of  the  rules  for  processing  traps,  and  a  description  of 
routines  for  modifying  the  processing,  is  contained  in  section  6.2.10. 

3.2.5.9.  Action  of  the  I/O  Routines  at  End-of-File 

At  execution  time,  if  an  end-of-file  is  read  during  reading  of  the 
system  input  tape,  the  message 

****ALL  INPUT  DATA  HAVE  BEEN  PROCESSED 
is  printed  and  the  job  is  terminated  by  SYSTEM.   Further  details  are  discussed 
in  sections  6.2.2,1.  and  6,3.6.1. 

3.2.5.10.  System  Exit  Routines 

All  system  exit  routines  first  check  sum  the  part  of  core  occupied  by 
the  Execution  Coordination  Routines.   If  this  check  fails  on  a  return  from 
execution,  Low  Core  is  refreshed  and  re-initialized  from  Master  Tape  1,  and  any 
exit  is  now  switched  to  the  SYSERR  routine  after  printing  a  comment.   Then  the 
Monitor  area  is  check  summed.   If  the  Monitor  is  present,  control  is  given  to  its 
normal  entry  point.   If  not,  SYSLSR  is  called  to  give  control  to  the  Monitor 
record  on  Master  Tape  ls 

SYSTEM  is  the  normal  job  termination  routine,   SYSERR  is  the  error  exit 
routine  which  saves  machine  conditions  for  the  post-mortem  dump,  prints  a  comment, 
gives  a  dump  if  requested,  then  proceeds  as  above.   There  is  an  alternate  entry 
to  SYSERR  for  low  core  routines  when  machine  conditions  have  already  been  saved. 
SYSTXT  is  the  return  for  all  translators .   It  returns  to  an  entry  point  in  the 
Monitor  different  than  that  for  SYSTEM,  or  refreshes  the  Monitor  from  the  first 
record  of  the  "save"  tape  when  necessary. 

3-2, 5 -11.   Miscellaneous  Routines 

SCATCH  is  a  routine  called  whenever  a  core  constant  is  executed.   It 
prints  the  "WHAT  WERE  YOU  DOING"  comment. 

8A.M  is  used  to  initialize  Low  Core  System  Control  and  is  used  in 
system  edits.   It  is  also  the  entry  point  of  one  of  the  system  records  containing 
Low  Core,   It  exists  only  when  read  from  tape,  and  is  not  available  in  core  at 
other  times. 
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SYSD0D  and  SYSPAN  are  part  of  the  system  dump.   This  code  is  in  core 
at  all  times  and  is  used  not  only  for  the  post-mortem  dump,  but  also  for  certain 
diagnostic  phases  of  system  components  and  for  snap  dumps  at  execution  time. 
SYSD0D  produces  core  dumps,  and  SYSPAN  prints  the  console  status  as  it  appears  at 
the  top  of  the  post-mortem  dump. 

SYSSTR,  SYSTTR,  and  SYSFPT  are  available  so  that  the  user  may  process 
his  own  traps  arising  from  transfer  instructions  while  operating  in  trapping 
mode,  or  from  floating  point  traps,  or  from  the  STR  instruction.   They  are  used 
as  described  below. 

CALL  SYSSTR 

XYZ  L0C,,ZR0ADR 

normal  return 

The  prefix  bits  of  the  parameter  word  are  interpreted  as  follows; 
X  =  0  do  nothing  to  location  0.  now 

=  1  set  C( address  of  location  0)  =  ZR0ADR  now 

Y  =  0  when  an  STR  occurs,  use  SYSERR 

=  1  when  an  STR  occurs,  transfer  control  to  L0C 
Z  =  0  when  an  STR  occurs,  do  not  change  AC 

=  1  when  an  STR  occurs,  set  logical  AC  -  C( location  0) 

CALL  SYSTTR 
XYZ  L0C 
normal  return 

The  prefix  bits  of  the  parameter  word  are  interpreted  as  follows : 
X  =  0  enter  transfer  trap  mode 
=  1  leave  transfer  trap  mode 

Y  =  0  when  a  transfer  trap  occurs,  use  SYSERR 

=  1  when  a  transfer  trap  occurs,  transfer  control  to 
L0C  with  transfer  trap  mode  off 
Z  =  0  when  a  transfer  trap  occurs,  do  not  change  AC 

=  1  when  a  transfer  trap  occurs,  set  logical  AC  =  C(location  0) 
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CALL  SYSFPT 
XYZ  L0C 
normal  return 

The  prefix  bits  of  the  parameter  word  are  interpreted  as  follows: 
X  =  0  enter  floating  trap  mode 
=  1  leave  floating  trap  mode 
Y  =  0  when  a  floating  point  trap  occurs,  use  the  system 
routine  .FTRA.P 
=  1  when  a  floating  point  trap  occurs,  transfer  control 
to  L0C 
Z  =  0  when  a  floating  point  trap  occurs  do  not  change  AC 
=  1  when  a  floating  point  trap  occurs,  set  logical 
AC  =  C(location  0) 
In  each  of  the  above  3  routines,  the  parameter  word  following  the  CALL  from 
the  previous  call  is  in  the  logical  AC  upon  return  to  the  normal  return. 

When  control  is  given  to  the  user  after  a  floating  point  trap,  the 
machine  will  still  be  in  floating  trap  mode.   When  control  is  given  to  the 
user  after  a  transfer  trap,  the  machine  will  not  be  in  trapping  mode, 

SYSCCK  is  available  so  that  the  user  may  change  the  clock  and  set 
time  traps  which  will  occur  more  than  10  seconds  before  the  terminal  time 
trap  for  his  job.   The  calling  sequence  is  as  described  below. 

CALL  SYSCCK 

TIX  USCLK,, URET 

normal  return 

Location  USCLK  contains  the  time  (in  60ths  of  a  second,  right 
justified  in  binary,  and  uncomplemented)  until  the  next  time  trap  is  to  occur. 

URET  is  the  location  in  the  user's  program  to  which  control  is  to  be 
returned  when  this  time  trap  occurs. 

If  the  user  requests  a  trap  which  will  occur  within  10  seconds  of  his 
terminal  trap,  SYSCCK  denies  the  request  to  change  the  clock,  and  control  is 
returned  with  SYSCLK  (location  5)  untouched.   If  the  request  is  valid,  SYSCCK 
computes  and  saves  the  time  remaining  after  the  user's  trap  until  the  terminal 
trap  occurs.   SYSCLK  is  then  set  to  the  complement  of  the  contents  of  USCLK,  i.e., 
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to  the  time  which  was  requested.   When  the  requested  trap  occurs,  the  user 
receives  control  through  the  channel  trap  processor.   Hence,  when  necessary 
computations  have  been  performed,  the  user  must  return  to  the  trap  processor 
via  TRA  1,^.   Each  call  to  SYSCCK  overrides  any  previous  request  to  change  the 
clock,  i.e.,  these  calls  may  not  be  nested. 

SYSSPR  is  available  so  that  the  user  may  process  his  own  memory  protect 
violations.   The  calling  sequence  is: 

CALL  SYSSPR 

TIX  URET,,UL0C32 

normal  return 

SYSSPR  sets  Low  Core  switches  so  that  if  the  user  attempts  to  execute 
an  order  forbidden  by  memory  protect  (see  section  3 .2.5.6.),  control  will  be 
transferred  to  URET,  and  the  contents  of  location  32  will  be  stored  in  location 
UL0C32.   SYSSPR  destroys  the  MQ  and  sets  the  AC  to  the  parameter  word  of  the 
previous  call.   It  should  be  noted  that  when  a  trap  occurs,  and  control  goes  to 
URET,  no  return  (TRA  1,^-)  is  expected  or  possible. 

SYSPUP  removes  all  information  in  the  Low  Core  pushdown  hold  buffers. 
Whenever  low  Core  is  entered  these  buffers  are  used  to  save  the  registers .  The 
calling  sequence  is: 

CALL  SYSPUP 

normal  return 

Situations  may  arise  where  a  user  wishes  to  continue  processing  his 
program  without  returning  from  his  trap  exit  to  the  trap  processor.   However, 
if  this  procedure  is  followed  for  any  length  of  time,  the  hold  buffers  will 
overflow  and  execution  will  be  terminated.   A  call  to  SYSPUP  prevents  buffer 
overflow  by  removing  all  of  the  information  which  is  currently  contained  in 
them.   It  should  be  clear  that  this  is  a  dangerous  procedure  and  should  be 
avoided  if  at  all  possible.   In  general,  returns  to  the  trap  processor  should 
always  be  made  from,  a  trap  exit. 

It  should  also  be  noted  that  in  any  system  subroutine  in  which  the 
user  may  specify  his  own  return  (SYSCCK,  SYSTOW,  etc.)  this  return  must  be 
above  location  77T7o.  Any  specification  of  a  user  return  below 
lOOOOo  will  be  considered  illegal  and  execution  will  be 
terminated. 
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The  distinguishing  feature  of  languages  at  this  level  is  that  they 
begin  to  look  like  languages;  more  precisely,  they  look  like  the  language  of 
mathematics,  and  in  particular,  algebra.   They  have  two  important  differences 
from  natural  languages,  however;  they  are  in  large  part  not  redundant,  and 
their  syntax  is  rigidly  defined  and  unambiguous. 

Procedures  are  described  in  more  general  terms  than  in  the  assembly 
languages:   the  assembly  language  specifies  what  machine  instructions  are 
carried  out  and  their  order;  the  procedure  language  specifies  what  is  to  be 
done,  but  not  the  machine  instructions  to  do  it.   Hence  the  assembly  language 
is  closely  tied  to  the  machine,  whereas  the  procedure  language  is  to  a  very 
large  extent  machine-free.   It  is  not  completely  machine -independent  because 
it  cannot  describe  a  procedure  which  the  computer  cannot  carry  out.   For 
example  a  procedure  cannot  call  for  sensing  the  temperature  if  the  computer 
has  no  means  for  doing  so;  or,  more  realistically,  it  cannot  call  for  reading 
from  a  magnetic  tape  if  the  computer  has  no  access  to  magnetic  tapes. 

An  example  of  the  use  of  a  typical  procedure-oriented  language  is 
the  following.   A  procedure  in  ALGOL -60  to  evaluate  a  polynomial  with  the 
arbitrary  coefficients  a,  b,  c,  d  is: 

begin  real  a,  b,  c,  d,  x; 

real  procedure  polynomial; 

polynomial  :=  a+bx+cx  +dx  ; 

read  (a,  b,  c,  d,  x); 

print  (polynomial,  a,  b,  c,  d,  x); 

end 
Note  that  no  mention  was  made  of  any  machine  instruction  or  hardware  component. 
Thus,   the  procedure  should  mean  the  same  thing,  in  terms  of  final  result,  to 
any  machine  which  has  been  programmed  to  accept  such  statements. 

This  leads  to  the  subject  of  processors  for  the  procedure -oriented 
languages.   Any  such  language  is  to  a  large  extent  useless  until  a  program 
is  written  to  cause  a  machine  to  be  able  to  read  the  instructions  (or  procedure 
description)  in  the  source  language  and  produce  a  set  of  machine  language 
instructions  for  carrying  out  the  procedure. 
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There  have  been  various  approaches  to  the  problem  of  preparing  a 
set  of  machine  instructions  from  a  procedural  language.   One  method  is  based 
upon  the  principle  of  simulating  a  computer  which  has  the  same  logical  structure 
as  the  language.  A  translating  program  which  utilizes  this  approach  is  called 
an  interpretive  compiler;  the  backbone  of  a  scheme  of  this  kind  is  an  interpretive 
program  such  as  that  described  in  the  preceding  section.   To  this  is  added  a 
translating  program  which  translates  the  input  language  into  the  "machine -language" 
of  the  fictitious  computer.   This  approach  has  been  used  in  some  versions  of 
ALGOL-60  translators,  but  the  result  is  not  very  efficient, 

A  second  approach  to  the  problem  of  translating  from  an  artificial 
language  into  a  program  that  a  machine  can  execute  is  to  transform  completely  the 
input  statements  into  machine  code.   This  produces  a  relatively  efficient  program, 
but  presents  some  real  problems  to  programmers  attempting  to  write  such  a  trans- 
lating program.   It  is  on  this  point  that  much  current  research  in  programming  is 
being  carried  on,  and  many  articles  have  been  written  on  the  formal  properties  of 
artificial  languages  and  their  processors. 

All  of  the  procedure -oriented  languages  available  through  PORTHOS  (MAD, 
FASTRAN,  FORTRAN  II,  and  ALGOL -60)  are  completely  translated  into  machine  code 
before  execution. 

3.3«1»3«   Problem-Oriented  Languages 

There  is  being  developed  today  a  class  of  programming  systems  which 
must  be  considered  as  being  one  step  higher  on  our  scale  than  the  powerful 
procedural  languages,   These  systems  are  ordinarily  limited  in  scope  but  their 
vocabulary  is  extremely  powerful.   Their  aim  is  to  describe  a  problem  (say, 
in  a  specific  field  such  as  structural  engineering  or  fluid  dynamics)  in  the 
same  terms  as  would  be  used  to  describe  it  to  a  human  being  who  is  knowledgeable 
in  the  field.   The  computer  then  selects  procedures  (perhaps  originally  written 
in  a  procedural  language)  for  the  solution  of  the  problem  with  or  without 
further  instructions  from  the  user, 
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3.3-3-   Procedure -Oriented  Languages  in  PORTHOS 

3.3.3.I0   General  Discussion  of  Available  Systems 

3.3.3.I.I.   Introduction 

There  are  four  algebraic  language  translators  available  to  the  user 
within  the  PORTHOS  system:   FASTRAN,  FORTRAN  II,  MAD,  and  ALGOL.   Each  has  its 
advantages  and  disadvantages,  and  the  user  should  be  aware  of  these  differences. 
For  example,  MAD  and  FASTRAN  compile  much  faster  than  FORTRAN,  but  FORTRAN  produces 
a  more  efficient  program  when  array  subscription  is  involved.   In  the  following 
paragraphs  these  three  languages  and  their  processors  are  compared  on  the  basis  of 
compilation  speed,  error  checking,  object  program  efficiency,  generality  of  the 
language,  and  other  features. 


3.3-3'l«2.   Compilation  Speed 

The  time  needed  for  a  compilation  is  largely  dependent  on  the  number  of 
cards  input.   Each  compiler  has  an  apparent  minimum  compilation  speed  for  a  short 
(say,  50  cards)  program.   As  taken  from  typical  times  determined  by  the  Monitor, 
the  time  in  seconds  for  a  130  card  program  is  as  follows: 

FASTRAN    5 . 0 
MAD        U.3 
FORTRAN   2k . 0 
However,  these  figures  depend  on  several  conditions  other  than  number  of  cards 
input  (at  times  MAD  compiles  faster  than  SCATRE  assembles).   For  instance,  an 
ALGOL  program  usually  has  about  5  seconds  charged  to  compilation  time  because 
of  its  present  position  on  the  master  tape,  and  a  MAD  program  will  contain  a 
minimum  of  1.9  seconds  charged  to  compile  time.   When  an  error  is  found  in  a 
FORTRAN  program,  the  time  may  be  somewhat  less. 

For  longer  programs,  these  times  diverge  rapidly.   Listed  below  are 
some  examples  of  compilation  times  in  seconds  for  the  four  translators,  for 
varying  sizes  of  input  programs. 


FASTRAN 

133  cards 

5.0  seconds 

^37  cards 

22.0  seconds 

508  cards* 

22.1  seconds 

FORTRAN 

88  cards* 

21.5  seconds 

133  cards 

2^.0  seconds 

U37  cards* 

102.0  seconds 

508  cards* 

91.1  seconds 

986  cards* 

228. k   seconds 
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MAD 


ALGOL 


136  cards} 
302  cards t 
Qk6   cards* 

595  cards 
730  cards 


^•3  seconds 

8.6  seconds 

U5.5  seconds 

25.8  seconds 
28.7  seconds 


*  Includes  PRINT  OBJECT  time, 
f  No  PUNCH  OBJECT. 

3. 3-3.1 -3.   Error  Checking 

Because  of  the  nature  of  the  languages  and  the  design  of  the  compilers, 
FASTRAN,  MAD  and  ALGOL  are  all  more  sensitive  to  errors  in  program  syntax  (grammar 
or  statement  structure)  than  is  FORTRAN.   Each  of  these  compilers  has  some  special 
feature  in  this  area. 

MAD,  for  instance,  has  a  very  clear  set  of  error  messages,  and  most 
errors  are  caught  in  the  first  pass  through  the  program.   In  the  second  pass,  while 
assigning  locations  to  variables,  MAD  will  print  out  a  list  of  all  variable  names 
which  were  mentioned  only  once,  helping  the  user  find  spelling  errors. 

FASTRAN  is  less  susceptible  to  allowing  errors  in  source  language  statements 
to  go  undetected  and  can  give  more  helpful  diagnostic  information  concerning  the  errors 
it  does  find. 

FORTRAN  spends  a  large  percentage  of  its  compiling  time  analyzing  the 
accessiblity  of  different  portions  of  the  object  program.   This  flow  analysis  is 
one  reason  for  FORTRAN'S  slow  speed,  but  is  often  helpful  in  bringing  to  light 
subtle  coding  errors.   FORTRAN  has  relatively  poorer  error-checking  facilities, 
and  it  does  permit  some  incorrect  statements  to  compile. 

ALGOL  has  very  extensive  error  checking  facilities,  made  possible  by 
its  exact  definition  as  a  language. 


3.3.3.1.^.   Object  Program  Efficiency 

The  "efficiency"  of  an  object  program  is  a  very  difficult  entity  to 
measure.   For  instance,  although  FORTRAN  handles  2-dimensional  matrices  efficiently, 
it  handles  alphabetic  data  and  logical  decisions  inefficiently.   As  a  general 
comparison  of  the  efficiency  of  a  program  which  includes  arrays,  functions,  logical 
decisions,  and  input-output,  MAD  and  FORTRAN  are  very  close;  perhaps  MAD  is  as 
much  as  20$  slower.   In  general,  ALGOL  programs  run  about  twice  as  long  as 
equivalent  FORTRAN  programs. 


Date: 
Section: 
Page : 
Change : 

5/1/65 

3.3.3. 

2 

1 

Port ho 

3  Manual 

3 . 3 • 3  - 1 • 5 .  Advantages  of  the  Various  Compilers 

Such  a  comparison  of  these  languages  is  perhaps  somewhat  invalid,  since 
each  language  can  perform  some  things  efficiently  which  the  others  cannot  perform 
as  well  (or  in  some  cases  not  at  all).   Basically,  the  efficient  usages  are  as 
follows : 

FASTRAN 

1.  Fewer  tape  errors  during  translation  (the  compiler  is  in  core 
during  translation) 

2.  Produces  optimum  coding  for  statements 

3.  Object  programs  short 

h.  Excellent  error  diagnostics 

5.  No  "relative  constants" 

6.  Index  of  DO  available  on  exit  from  DO 

7.  Has  "FLOATING-ROUND"  feature 

8.  Page  subtitling  option 

9.  Same  source  language  as  FORTRAN 
FORTRAN 

1.  Fast  handling  of  arrays 

2.  Fast  execution  of  loops 

3.  More  "built-in"  functions  available 

k.  Somewhat  more  efficient  compilation  of  arithmetic  statements 

5.  Extensive  flow  analysis  prior  to  compilation 

6.  Double -precision  and  complex  arithmetic 

7.  Popularity 


MAD 


1.  Fewer  instructions  produced  by  I/O  statements 

2.  Variables  can  be  "predefined",  before  execution 

3.  The  ability  to  vary  array  dimensions  at  execution  time 
h.  I/O  possible  without  format  statements 

5.  Mixed  (floating  and  integer)  expressions  permitted 

6.  Efficient  Boolean  Algebra 

7.  Statement  labels  easily  transmitted  to  subroutines  as  arguments 

8.  Functions  and  subroutines  with  more  than  one  statement 
definable  at  any  point  in  a  program 

9.  Step  size  in  loops  may  be  any  algebraic  expression 

10.  Multiple  entry  points  to  subroutines 

11.  Recursive  subroutines  may  be  defined 

12.  Push-down  list  manipulation  statements 
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13*  Ability  to  handle  variable-size  records  on  binary  tapes 

ik.    Full-word  (35  bit)  integers,  as  opposed  to  17  bit  maximum 
in  FORTRAN 

15.  Any  arithmetic  expression  as  a  subscript,  and  an  arbitrary 
number  of  dimensions,  may  be  used 

16.  Subscription  of  arrays  in  any  fashion  desired 

17.  BACKSPACE  FILE  statement  available 
ALGOL 

1.  Dynamic  storage  allocation  (variable  dimensions) 

2.  Official  algorithm  publication  language  of  the 
Association  for  Computing  Machinery 

3.  Numbers  k,    5,  6,  7,  8,  11  and  15  under  MAD  also  apply  to  ALGOL 

k.      Closer  to  every  day  usage  of  the  English  language  than  is  FORTRAN 
5.   Particularly  suited  for  checking  algorithms  of  numerical  analysis 

3 o 3. 3. 1.6.   Disadvantages  of  the  Various  Compilers 
FASTRAN 

1.  Relatively  inefficient  DO-loops  and  subscripting. 
FORTRAN 

1.  Lacks  generality  provided  by  MAD  and  ALGOL 

2.  Slow  compilation 

3.  Fewer  error  checking  features 

l+o   Susceptible  to  machine  errors  during  compilation  due  to 


MAD 


extensive  use  of  scratch  tapes 

Limited  usage  prevents  widespread  exchange  of  programs 


ALGOL 

1.  Difficult  to  call  programs  written  in  other  languages 

2.  Lack  of  ability  to  read  and  write  on  binary  scratch  tapes 

3.  Relatively  slow  running  speed  of  object  program 
h.  Character  set  is  somewhat  cumbersome 

5.  There  is  no  international  input/output  standard  specified  as  yet 

3.3.3.2.   FORTRAN  II  (or  FASTRAN) 

3.3.3.2.1.   General 

The  IBM  FORTRAN  II  programming  system  consists  of  two  parts:   a 
programming  language  quite  unlike  machine  language  but  similar  to  mathematical 
(algebraic)  notation,  and  a  processor  program  which  converts  a  program  written 
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in  the  FORTRAN  II  language  into  machine  language  instructions.   As  the 
name  FORTRAN  II  implies,  more  than  one  version  of  the  FORTRAN  language 
is  in  existence;  the  potential  user  should  take  into  consideration  the 
fact  that  his  programs  written  for  the  FORTRAN  II  processor  at  this 
installation  may,  or  may  not,  require  minor  alterations  before  they  will 
run  successfully  at  some  other  installation.   For  a  general  description 
of  the  FORTRAN  family  of  languages,  the  reader  should  see  "General  Information 
Manual,  FORTRAN",  IBM  publication  F28-807^-2.   Since  the  properties  of  the 
FORTRAN  II  language,  and  peculiarities  of  the  709^  processor  for  it  are  well 
documented  elsewhere  (e.g.  IBM  publication  C28-605U--4,  "IBM  7090/709I+ 
Programming  Systems,  FORTRAN  II  Programming"),  no  effort  will  be  made  here 
to  repeat  that  information.   Suffice  it  to  say  that  FORTRAN  II  is  a 
procedure-oriented  artificial  language  that  enables  a  user  to  express  rapid- 
ly and  concisely  mathematical  procedures,  or  algorithms,  in  a  way  at  once 
palatable  for  human  readers  and  translatable  by  the  computer.   To  a  very 
large  extent  the  procedures  thus  expressed  are  independent  of  any 
particular  computer,  and  will  run  on  any  computer  for  which  a  translating 
program  is  available . 

A  comparison  of  FORTRAN  II  with  the  other  algebraic  languages 
available  at  this  installation  is  made  in  sections  3.3«3.1.5.  and  3- 3- 3-1 -6  •> 
as  an  aid  to  prospective  users  in  deciding  which  language  is  most  suitable 
to  their  applications  and  needs. 

3.3.3'2.2.   FAP,  the  FORTRAN  II  Assembly  Program 

The  end  result  of  a  translation  of  a  source  program  written  in  an 
algebraic  language  such  as  FORTRAN  II  is  a  set  of  machine  language  instructions 
Instances  may  arise  in  the  course  of  preparing  programs  in  FORTRAN  II  where 
the  procedure  in  mind  is  not  easily  expressed  in  that  language.   For 
example,  a  programmer  may  wish  to  test  a  bit  position  in  a  word.   This  is  a 
cumbersome  task  to  describe  in  FORTRAN  II,  but  can  be  done  easily  with  a 
masking  operation  if  machine  language  can  be  employed.   To  facilitate  the 
transition  from  one  level  of  language  to  another,  the  FAP  language  has  been 
incorporated  into  the  FORTRAN  II  "system".   The  FAP  language  is  a  symbolic 
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machine  language  programming  system  (assembler),  and  FAP  subroutines  for 
FORTRAN  II  main  programs  can  be  written,  or  vice -versa.   FAP  or  one  of  its 
derivatives  is  commonly  available  at  installations  using  FORTRAN  II  whether 
one  of  the  IBM  operating  systems  or  some  of  the  operating  system  is  used. 

At  this  installation,  the  place  of  FAP  in  the  PORTHOS  executive 
(operating)  system  is  taken  by  SCATRE,  which  is  described  in  section  3- 3*2. 2, 
Actually,  the  degree  of  compatibility  between  FAP  and  SCATRE  is  very  high. 
The  discussion  of  FAP  here  is  to  insure  that  users  who  are  concerned  with 
interinstallation  compatibility  are  aware  of  the  fact  that  some  changes  may 
be  required  in  the  assembly-language  portions  of  mixed  programs, 

3.3.3.2,3,   The  FORTRAN  Monitor,  IBSYS,  and  the  SHARE  Operating  System  (SOS) 

These  executive  systems  are  used  at  various  installations  for 
essentially  the  same  purposes  as  PORTHOS.   The  compatibility-conscious 
user  should  familiarize  himself  with  these  systems,  so  as  to  minimize  or 
eliminate  alterations  when  running  programs  at  other  installations.   The 
interested  reader  should  see 

IBM  publications  028-605^-2  and  C28-605^-U 
for  information  on  the  FORTRAN  Monitor, 

IBM  publication  C28-62U8 
for  information  on  IBSYS,   and 

IBM  publications  X28-1213,  328-1219, 

328-1262,  328-1377,  328-1395, 

328-1^01,  and  328-162^ 
for  information  on  the  SHARE  Operating  System, 

The  user  must  be  careful  to  note,  however,  that  the  material 
in  the  publications  above  is  not  applicable  to  this  installation,  this 
manual,  itself,  is  the  basic  source  of  information  concerning  operation 
under  PORTHOS. 

3. 3. 3.2 .k.      Modifications  to  FASTRAN  and  FORTRAN  II  Within  PORTHOS 

Since  FORTRAN  II  source  programs  are  expected  to  be  run  under 
PORTHOS,  certain  of  the  standard  FORTRAN  statements  are  not  allowable, 
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and  others  have  been  modified.   These  are  listed  below. 

1.  The  FORTRAN  statement 

ST0P  n 
is  unacceptable. 

2.  Monitor  options  on  the  END  card  are  ignored. 

3.  FREQUENCY  statements  are  ignored. 

h.      PAUSE  statements  generate  a  call  to  the  library  routine  .PAUSE  rather 
than  using  the  instruction  RPR,  which  may  be  trapped. 

5.  An  asterisk  in  column  1  acts  like  a  "C". 

6.  IF  ACCUMULATOR  0VFIRFL0W  and  IF  QUOTIENT  0VERFL0W  are  not  currently 
operative  in  the  PORTHOS  system. 

7.  READ  and  PUNCH  are  not  online  operations ,    and  should  not  be  used. 

8.  READ  DRUM  and  WRITE  DRUM  are  not  allowed. 

9.  READ  TAPE  may  refer  to  the  input  tape  if  the  next  card  is  binary, 
and  the  list  specifies  27  words  or  fewer. 

10.  WRITE  TAPE  may  refer  to  either  the  print  or  the  punch  output  tape.   The 
result  will  be  punched  in  binary.   The  list  may  not  specify  over  27  words 

11.  The  END  statement  compiles  a  "CALL  SYSTEM"  and  may  therefore  be 
executed.   Statement  numbers  on  the  END  card  are  ignored. 

12.  The  mathematical  functions  available  in  FORTRAN  fall  into  two  categories. 
The  first  category  contains  functions  which  are  available  to  all  the 
compilers  and  assemblers  in  the  system;  therefore,  at  this  installation 
they  are  called  by  their  system  names  instead  of  by  the  names  as  listed 
in  the  various  FORTRAN  reference  texts. 


Function 

name  as 

listed  in 

Function 

FORTRAN 

names  as 

reference 

used  at  this 

texts : 

installation: 

Do  Not  Use 

Use  These  Names 

ATANF* 

ATAN 

COSF* 

COS 

LOGF 

ELOG 

EXPF* 

EXP 

Type  of  Function: 

Principal-valued  Arctangent 
Cosine  of  an  Angle  in  Radians 
Natural  Logarithm 
Exponential  to  Base  e 
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SINF*  SIN  Sine  of  an  Angle  in  Radians 

SQRTF*  SQRT  Square  Root 

TANHF*  TANH  Hyperbolic  Tangent 

Note  that  there  is  no  terminal  F  on  the  function  name.   This  omission 
of  the  terminal  F  is  also  the  practice  for  any  routine  in  the  standard 
tape  library  (see  section  5A.).   Users  who  wish  to  use  the  standard 
library  functions  with  terminal  F  must  include  with  their  program 
decks  a  set  of  specially  coded  subroutines,  which  may  be  obtained  from 
the  Consulting  Office,  111b  ERL. 

*  These  must  be  used  in  Double  Precision  and  Complex  Arithmetic. 
ELOGF  is  used  in  complex  arithmetic. 

The  second  category  contains  functions  which  are  peculiar  to  FORTRAN 
alone;  they  are  described  in  Figure  $.1.      The  quantities  ARC,  ARC  1, 
ARG  2,  etc.,  refer  to  the  arguments  of  the  functions. 

13.   Fhysical  records  are  128  words  long  instead  of  256.   (This  includes 
1  signal  word) . 

1^.   Format  checking  is  relaxed  to  allow  compilation  of  non-FORTRAN  i/O 
symbols  in  formats . 
Differences  in  i/O  conversion  of  data  are: 

a.  All  blanks  are  ignored; 

b.  An  all  blank  field  is  read  as  -0  in  E,  F  and  I  conversion,  +0  in 
K  and  0  conversion,  and  blanks  in  A  and  C  conversion; 

c.  If  a  number  is  to  be  printed  in  a  field  too  small  for  the  number, 
an  i/O  error  results. 

15.  The  manual  states  that  "a  complex  quantity  may  only  be  given  a  fixed 
point  exponent."   Our  compilers  also  allow  exponents  which  are  complex. 

16.  Hollerith  literals  on  the  right  side  of  the  =  sign  in  an  arithmetic 
statement  compile  correctly  (but  are  not  mentioned  in  the  manual  at  all) 

17.  Variables  used  in  both  arithmetic  and  "ASSIGN"  statements  may  cause 
subtle  errors,  but  are  not  stopped  from  compiling,  e.g., 

ASSIGN  10  T0  J 

J  -   0 

G0  T0  J, (10) 
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18.  A  subroutine  (not  function)  name  may  appear  on  the  left  side  of  the 
=  sign  (this  is  a  harmless  error). 

19.  FORTRAN  IBM  and  FASTRAN  have  been  modified  to  compile  TXH's  instead 
of  TSX's  in  the  parameter  lists  of  calling  sequences. 

20.  The  manual  states  that  "single  precision  variables  should  not  be 
equivalenced  to  complex  variables".   This  actually  compiles  correctly. 

21.  Built-in  functions  (open  subroutines  and  arithmetic  statement 
functions)  must  be  written  with  the  terminal  F.   Library  functions 
called  with  the  incorrect  terminal  F  will  not  operate  properly. 

22.  In  addition  to  the  usual  methods  for  terminating  a  FORTRAN  execution 
(i.e.,  reading  last  data  card  and  running  past  the  end  of  the  program) 
the  user  may  execute  one  of  the  following  statements: 

(1)  CALL  SYSTEM 

(Used  if  no  dump  is  desired). 

(2)  CALL  SYS ERR 

(Used  if  a  dump  is  desired;  a  DUMP  control  card 
is  a  prerequisite). 

23.  The  FORTRAN  statement 

READ  n,  list 
has  the  same  effect  as 

READ  INPUT  TAPE  f ,n,    list 
The  FORTRAN  statement 

PUNCH  n,  list 
has  the  same  effect  as 

WRITE  0UTPUT  TAPE  5,n,  list 
Note  that  the  FORTRAN  statement 

PRINT  n,  list 
does  not  have  the  same  effect  as 

WRITE  0UTPUT  TAPE  6,    n,  list 
PRINT  causes  a  message  to  the  operator  to  be  printed  on  the  on-line 
printer. 
2k.      The  statements  READ  INPUT  TAPE  and  WRITE  0UTPUT  TAPE  may  be 
abbreviated  as  RIT  and  W0T  respectively. 
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25.   PART  III,  APPENDIX  C,  and  APPENDIX  D  of  the  709-7090  FORTRAN 

Programming  System  Reference  Manual  should  be  disregarded  since 
the  FORTRAN  Monitor  is  not  used  here.  (Form  Numbers  C28-605U-2 
and  C28-605U-U). 

3.3.3.2.5.   Differences  between  FASTRAN  and  FORTRAN  IBM 

1.  There  are  no  "relative  constants"  in  the  FASTRAN;'  each  variable 

is  assigned  to  a  storage  cell,  which  will  always  contain  the  correct 

and  up-to-date  value  of  that  variable.   Relative  constants  in  the  FORTRAN 

IBM  Compiler  are  usually  subscripts  carried  in  an  index  register 

from  one  statement  to  another,  without  being  placed  in  a  storage  cell. 

It  is  due  to  their  use  that  FORTRAN  IBM  does  not  make  available  the 

index  of  a  DO  when  the  DO  is  satisfied,  and  that  subtle  errors  may 

occur  due  to  the  fact  that  no  memory  cell  contains  the  index  of  the  DO. 

2.  Fixed  point  expressions  involving  a  succession  of  multiply  and  divide 
operations  are  not  rearranged  for  sake  of  storage  reference  efficiency 
as  in  the  FORTRAN  IBM  compiler.   This  means  that  the  programmer  may 
control  the  truncation  of  intermediate  operands  in  fixed-point  computa- 
tions since  the  code  generated  is  effectively  that  due  to  a  left-to- 
right  scan  of  the  expression,  and  that  the  result  to  be  expected  from 

a  given  computation  may  be  known  exactly. 

3.  Comment  cards  may  not  immediately  precede  a  statement  continuation  card 
in  FASTRAN,  nor  may  they  follow  the  END  card. 

h.      The  manual  states  that  the  "first  statement  in  the  range  of  a  D0  may 
not  be  non-executable."   FASTRAN  will  correctly  detect  this  condition; 
FORTRAN  IBM  will  not,  but  will  compile  correct  code. 

5.  F-cards  must  precede  the  uses  of  their  external  names,  and  DIMENSION 
statements  must  precede  the  use  of  their  array  names  in  the  source 
program  in  FASTRAN. 

6.  Implied  multiplication  is  not  recognized  by  FASTRAN. 

7.  ASSIGN  and  Assigned  GO  TO  statements  are  thoroughly  checked  for 
consistency  by  FASTRAN. 

8.  The  value  of  a  variable  subscript,  exclusive  of  its  addend,  need  not  be 
less  than  or  equal  to  the  corresponding  array  demension  in  FASTRAN  as 
required  by  FORTRAN  IBM  for  correct  results. 


Date: 

5/1/65 

Section: 

3.3.3. 

Page: 

11 

Change : 

2 

Porthos 

Manual 

9.  Names  which  appear  as  dummy  arguments  to  a  subprogram  and  which  also 
appear  in  a  C0MM0N  statement  are  removed  from  the  C0MM0N  assignment; 
FASTRAN  will  give  an  ERROR  message  in  this  case. 

10.  Transfers  out  of  the  range  of  a  DO  and  back  (extended  range)  occasionally 
miscompile  on  FORTRAN  IBM;  FASTRAN  compiles  them  correctly. 

11.  Changing  the  limit  of  a  DO  is  not  caught: 

D0  10  I  =  1,N 
10    N  =  N+l 
FORTRAN  IBM  compiles  this  incorrectly;  FASTRAN  compiles  this  sequence 
to  use  the  value  of  N  at  the  time  the  DO  is  initiated,  as  the  upper 
limit. 

12.  In  FORTRAN  IBM,  all  the  branches  of  an  Assigned  GO  TO  appearing  within 
the  range  of  a  DO  must  also  lie  within  the  range  of  the  same  DO. 
FASTRAN  does  not  restrict  the  branches  to  lie  within  the  range  of  the  DO . 

13.  The  STOP  statement  is  not  allowed  by  FASTRAN. 

Ik.      In  FASTRAN,  the  index  of  a  DO  is  available  on  exit  from  a  DO  when  the 
DO  is  satisfied.   This  is  not  generally  true  in  FORTRAN  IBM. 

15.  FASTRAN  subprograms  save  and  restore  only  those  index  registers  used 
in  the  subprogram. 

16.  In  FASTRAN,  RETURN  statements  all  exit  through  a  common  exit  sequence, 
whereas  FORTRAN  IBM  generates  an  exit  sequence  for  each  RETURN 
statement. 

3.3.3.2.6.   FORTRAN  IBM  Errors  Detected  and  Processed  by  FASTRAN 

1.  If  column  1  contains  any  letter  besides  B,  C,  D,  F,  or  I,  it  is  simply 
ignored  by  FORTRAN  IBM. 

2.  The  same  function  used  both  with  a  terminal  F  and  without  an  F  is  not 
caught,  but  different  calling  sequences  are  compiled  for  the  two 
cases.   FASTRAN  detects  this  situation  and  prints  an  error  message. 

3.  References  to  non-existent  sense  lights  and  sense  switches  compile 
nonsense . 

k.     An  error  message  is  given  by  FASTRAN  in  the  following  case 

DIMENSION  A(10,10) 

1  =  1 

J  =  2 

CALL  A(I,J) 

END 
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5.  "Exponentiation"  in  Boolean  statements  compiles  nonsense  in 
FORTRAN  IBM,  but  FASTRAN  disallows  it. 

B     X  Y**Z 

6.  Fixed  point  constants  greater  than  2**17  are  n°t  caught  when  compiling. 
7-   Exponent  too  large  causes  failure  of  compilation:   for  example,  I.OEU9 

causes  a  floating  point  overflow  trap  in  the  IBM  compiler. 

8.  All  forms  of  Hollerith  literals  compile  correctly  in  FASTRAN,  including 
those  with  terminal  blanks  and  those  in  Boolean  statements  ( in  which 
case  the  character  count  is  assumed  to  be  in  decimal). 

9.  The  DP-CA  function  "FIXF"  is  not  allowed  in  FASTRAN;  in  the  FORTRAN  IBM 
nonsense  code  is  produced. 

10.  Use  of  a  name  both  as  a  variable  and  as  a  function  name  or  arithmetic 
statement  function  name  is  allowed  by  FORTRAN  IBM, 

11.  The  statement  DIMENSION  C(0),A(lO)  compiles,  and  C  and  A  are  assigned 
the  same  location  in  this  case.   Results  are  unpredictable,  however. 

12.  A  function  subprogram  with  two  dummy  arguments  the  same  is  compiled. 
FUNCTI0N  F(A,B,A) 

13.  Although  the  name  ABCF  is  illegal  as  a  function  subprogram  name,  it  is 

translated  anyway.   For  example, 

FUNCTION  ABCF(X) 
ABCF  =  X 
RETURN 
END 

A  subroutine  subprogram  whose  name  has  a  terminal  F  is  allowed  to 

compile  by  FORTRAN  IBM. 

Terminal  F's  are  removed  by  FORTRAN  IBM  from  subroutine  names  in  CALL 

statements;  for  example,  CALL  SETE0F(A,B)  will  generate  a  call  for 

SETE0 . 

Illegal  nesting  of  DO  loops  is  not  detected.   For  example, 

D0  2  I  =  1,10 
D0  2  I  =  11,20 

2  CONTINUE 

17.   Changing  of  a  DO  index  is  not  caught.   For  example, 

D0  3  I  =  1,10 

3  1  =  1-1 


Ik, 

15. 

16, 
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18.  FORTRAN  IBM  refuses  to  compile  subscripted  fixed  point  variables  on 
the  right  side  of  DP-CA  statements. 

19.  In  FORTRAN  IBM,  a  FUNCTION  subprogram  with  no  GO  TO  or  RETURN 
statement  just  before  the  END  statement  may  compile  a  TSX.  SYSTEM, k 
and  not  put  SYSTEM  in  the  transfer  vector, 

20.  FORTRAN  IBM  ignores  the  absence  of  RETURN  statements  in  FUNCTION  or 
SUBROUTINE  subprograms.   In  the  case  of  function  subprograms,  FASTRAN 
prints  an  error  message  and  considers  the  error  to  be  fatal.   In  the 
case  of  subroutine  subprograms,  FASTRAN  prints  a  (non-fatal)  error 
message  and  compiles  a  CAIL  SYSTEM,  except  that  no  message  is  printed 
if  the  statement  proceding  the  END  is  a  CAIL. 

21.  FORTRAN  IBM  allows  functions  to  be  defined  with  no  arguments ,  even 
though  an  argument  must  be  present  in  each  call  for  a  value  of  a 
function. 

22.  In  Boolean  statements,  FORTRAN  IBM  allows  only  functions  with  a 
terminal  F.   FASTRAN  allows  both  types. 

23.  FORTRAN  IBM  allows  numerous  punctuation  and  syntactical  errors  to  go 
unnoticed.   For  example" 

1.U.5  is  equivalent  to 

1.4E6.  is  compiled  as 

A  =..... .  is  compiled  as 

k.A  is  compiled  as 

(A)3.0  is  compiled  as 

(A)B  is  compiled  as 

(A)(B)  is  compiled  as 

Many  other  errors  of  this  type  are  easily  generated. 

24.  Extra  commas  in  I/O  lists  are  occasionally  ignored, 
WRITE  0UTPUT  TAPE  6,  4,  A,  B, 

25 .  Missing  commas  in  I/O  lists  are  occasionally  undetected. 

RIT  7,  3,((QQ(I,J),  1=10)    J  =  1,5) 

26.  IBM  Fortran  does  not  always  check  whether  a  subscripted  list  element 
has  been  dimensioned: 

RIT  7,2,  (A(l),  1=1,1000) 


1.45 

l.hE6   *  0.0 

A  =  0  =  0 
4.0  *  A 
A  *  3-0 
A  *  B 
A  *  B 
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27.  Dangling  operators  are  occasionally  ignored. 
A  =  B  +  C+ 

28.  Operators  to  the  left  of  the  equal  sign  in  an  assignment  statement 
are  ignored. 

+  IK  =  JR 
/  QV  =  PL 

29.  Missing  subscripts  are  often  undetected. 
A  =  B(l,) 

A  =  B(L,  ) 

30.  The  following  subprogram  produces  useless  code  in  IBM  Fortran: 

FUNCTION  P(X,Y) 
A  =  X  *  Y 
B  =  Y  *  Y 
I        P  =  (A,B) 

I        RETURN 
END 

31.  The  names  "SYSTEM"  and  "SET2"  may  safely  be  used  as  variable  names  in 
FASTRAN,  but  not  in  IBM  Fortran. 

3.3.3.2.7.   Additional  Features  of  FASTRAN 

1.  Statement  numbers  1  to  99999  are  permitted  in  FASTRAN. 

2.  The  FASTRAN  statement  "FLOATING  R0UND"  will  cause  rounding  of  all 
subsequent  FASTRAN-compiled  floating  point  arithmetic  involving 
multiplication,  addition,  and  subtraction.   This  feature  may  be 
turned  off  by  a  "FLOATING  R0UND  0FF"  statement. 

3.  Line  spacing  in  a  FASTRAN  source  program  of  1,  2,  or  3  lines  may  be 
effected  by  a  card  containing  the  word  "SPACE"  in  columns  1-5  and  the 
integer  1,2,  or  3  in  column  7- 

h.     A  page  subtitling  option  is  available  in  FASTRAN.   If  the  first  card 
of  the  source  program  has  the  characters  "T",  "C",  or  "*",  then 
columns  2-72  of  that  card  will  be  used  for  a  page  subtitle  on  each 
page  of  the  listing  of  the  program.   Elsewhere  in  the  deck,  cards 
with  "T"  in  column  1  may  be  used  to  specify  new  subtitles. 

5.  Statements  such  as  A=0.  cause  STZ  instructions  to  be  generated. 

6.  Inconsistencies  such  as  GO  TO  and  IF  statements  which  transfer  to 
themselves  are  not  allowed  by  FASTRAN. 
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7.  Double-precision  constants  are  more  accurate,  and  double-precision 
and  complex  arithmetic  are  performed  considerably  more  efficiently 
and  rapidly  in  FASTRAN. 

8.  A  most  important  and  valuable  diagnostic  feature  of  FASTRAN  is  that 
the  use  of  undefined  variables  and  statement  number  constitutes  a 
source  program  error,  and  a  list  of  undefined  variables  will  be 
printed  on  the  program  listing.  A  variable  is  undefined  if  it  does 
not  have  one  or  more  of  the  following  properties: 

In  a  COMMON  statement;  equivalenced  to  a  COMMON  variable ; 
in  an  input  list;  on  the  left-hand  side  of  an  equal  sign; 
in  a  SUBROUTINE  or  FUNCTION  statement  argument  list;  in 
the  argument  list  of  a  CALL  statement  or  a  call  to  an 
external  function;  used  as  a  DO  index,  or  as  an  index 
in  an  i/O  list;  used  as  an  ASSIGN  variable. 
Statement  labels  are  undefined  if  they  do  not  appear  in  the  label 
field  of  an  executable  statement.   Format  statement  labels  must  of 
course  appear  on  FORMAT  statements. 

9.  Error  message  are  issued,  whenever  possible,  at  the  point  in  the 
program  where  the  error  is  detected.   Two  additional  useful  features 
of  FASTRAN' s  error  detection  are  that  error  messages  state,  roughly 
how  many  characters  had  been  scanned  in  the  statement  when  the  error 
was  detected,  and  that  scanning  of  a  statement  will  usually  be  continued 
after  an  error  is  detected,  so  that  additional  errors  in  a  statement 
may  be  found. 

10.   FASTRAN  contains  the  built-in  function  "XL0CF",  which  produces  a  fixed- 
point  number  equal  to  the  memory  location  of  a  given  variable.   For 
example,  I  =  XL0CF(A)  gives  to  the  variable  I  the  value  of  the  address 
of  the  variable  A.   The  argument  of  the  function  XL0CF  may  also  be  a 
subscripted  variable  or  a  constant. 

To  use  FASTRAN,  the  user  need  only  prepare  his  input  deck  as  in  the  past, 
except  that  in  place  of  the  $  FORTRAN  card,  the  user  should  place  a  card  with 

$  FASTRAN  and 

for  those  users  who  wish  to  use  FORTRAN  IBM  for  compilations,  the  $  FORTRAN  card 
should  be  replaced  by  a  $  F0RTRAN  IBM  card. 
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3.3-3.3.  ALGOL-60 

3.3.3.3.1.  General 

ALGOL-60  is  an  algebraic  procedure -oriented  language  similar  in  many 
respects  to  other  such  languages  as  FORTRAN  and  MAD. 

ALGOL-60  is  supported  by  many  national  computer  societies  as  an 
international  programming  language,  and  it  is  hoped  by  its  adherents  that  it 
will  emerge  as  the  standard  language.   It  was  designed  by  an  international  group 
of  experienced  compiler  builders  and  refined  from  an  earlier  version  (ALGOL-58) 
after  much  discussion  and  debate  by  interested  parties  throughout  the  world. 

The  ALGOL-60  compiler  which  is  available  through  PORTHOS  is  the 
ALC OR -ILLINOIS  7090  ALGOL-60  Translator,  and  was  written  at  the  University  of 
Illinois  by  individuals  from  the  ALCOR  organization  and  the  University  of  Illinois. 
The  ALCOR  organization  is  formed  around  the  ALGOL-60  language  and  its  translator 
(compiler).   The  entire  ALGOL-60  language,  as  defined  in  the  "Revised  Report  on 
the  Algorithmic  Language  ALGOL-60",  P.  Naur,  Ed.,  Communications  of  the  Association 
for  Computer  Machinery  6  (Jan.  1963),  1-17>  with  the  exception  of  the  own  feature, 
has  been  implemented. 

Distinctive  features  of  the  ALGOL-60  language  and  its  processor  are 
dynamic  storage  allocation,  identifiers  of  arbitrary  length,  recursive  programming, 
Boolean  operations,  and  powerful  logical  statements. 

3.3.3.3.2.  References 

The  interested  reader  should  see  "Structure  and  Use  of  ALGOL-60", 
"User's  Manual  for  the  ALCOR -University  of  Illinois  ALGOL-60  Translator"  both  of 
which  are  available  from  the  Librarian,  165  ERL. 

3.3.3.3.3.  The  ALGOL  Algorithm  Index 

One  of  the  primary  objectives  of  the  original  ALGOL  effort  was  to  create 
a  standard  language  which  could  be  used  for  publishing  algorithms .   An  attempt 
was  then  made  to  make  the  actual  hardware  input  languages  of  the  various  ALGOL 
compilers  as  close  as  possible  to  this  publication  language.   Hence,  an  algorithm 
published  in  the  publication  language  can  be  transliterated  and  used  by  an  ALGOL 
translator  with  a  minimum  number  of  changes.   Since  the  effort  began,  many 
algorithms  have  been  published  using  publication  ALGOL.   A  large  fraction  of  these 
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algorithms  have  been  published  in  the  Communications  of  the  Association  for 
Computing  Machinery,  although  some  have  been  published  in  less  available  journals. 

Since  an  ALGOL  Translator  now  exists  on  the  709^+j  users  are  able  to 
exploit  the  many  (possibly  useful)  algorithms  which  have  been  published.  As  an 
aid,  these  algorithms  have  been  classified  and  indexed  according  to  a  modified 
SHAKE  Library  classification  code  (see  section  5«2).   This  index  appears  in 
Appendix  17.   Unless  explicitly  stated  otherwise,  the  references  are  to  the  month, 
the  year,  and  algorithm  number  published  in  the  Communications  of  the  Association  for 
Computing  Machinery.   A  particular  algorithm  can  therefore  be  easily  found.   As  an 
added  convenience,  the  pages  from  the  Communications  of  the  Association  for 
Computing  Machinery  containing  these  algorithms  have  been  copied  and  are  kept 
available  in  Rooms  l68  and  111b  ERL. 

3 . 3 . 3 . k .   MAD 

3.3.3A.1.   General 

MAD,  the  Michigan  Algroithm  Decoder,  was  designed  and  implemented  at  the 
University  of  Michigan.   Specific  objectives  were  set  up  when  the  language  was 
designed,  among  which  are,  in  the  order  of  relative  importance, 

1)  high  translation  speed, 

2)  as  few  restrictions  on  the  user  as  possible  (i.e.,  nearly  complete 
accessibility  by  the  user  of  all  the  features  of  the  available 
hardware ) , 

3)  object  program  efficiency. 

The  language  was  based  in  large  part  on  ALGOL -58,  but  differs  in  several  important 
ways.   For  instance,  MAD  does  not  have  the  block  structure  of  ALGOL  and  hence  does 
not  allocate  storage  at  execution  time  in  the  same  manner)  identifiers  of  arbitrary 
length  are  not  allowed;  some  features,  such  as  declaration  of  array  dimensions,  are 
cumbersome,  but  are  compiled  efficiently  and  rapidly.   A  major  departure  from  the 
ALGOL  concept  is  in  the  construction  of  the  compiler  so  that  the  language  may  readily 
be  extended  by  defining  new  operations. 

A  great  effort  was  made  by  the  designers  of  MAD  to  make  it  a  true 
"algorithmic"  language  and  not  strictly  an  algebraic  language.   Thus,  its  scope  over- 
laps, but  does  not  exactly  coincide  with,  that  of  ALGOL.   For  this  reason,  subroutines 
are  available  in  MAD  for  the  manipulation  of  bits  and  BCD  characters  and  for  ease  in 
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utilizing  the  magnetic  tapes. 

3.3.3.U.2.   References 

A  number  of  publications  at  various  levels  are  available.   Among  them  are 

1.  "A  User's  Reference  Manual  for  the  Michigan  Algorithm  Decoder"; 
"MAD  for  the  IBM  709O",  by  R.  and  J.  Flenner  (Department  of  Computer 
Science  Library  Program  L2-U0I-MAD1-2-BX) ; 

2.  "A  Computer  Primer  for  the  MAD  Language",  by  E.  I.  Organick 

3.  "The  Language  of  Compilers",  by  B.  A.  Galler 
McGraw-Hill  Book  Company,  Inc.,  New  York,  1962. 

h.      "The  Internal  Organization  of  the  MAD  Translator",  by 

B.  W.  Arden,  B.  A.  Galler,  and  R.  M.  Graham,  Communications 
of  ACM,  p.  28-31,  Jan.  1961,  VU,  n.  1; 

5-   "An  Introduction  to  Digital  Computing",  by  B.  W.  Arden; 

6.   "A  MAD  Primer",  by  E.  I.  Organick 
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3.3'^»  Specialized  Programming  Systems 

3.3.if.l.   The  Statistical  Monitor  (STATMON) 

3.3.^.1.1.   General 

The  STATistical  MONitor  (STATMON),  a  system  for  general  processing 
of  statistical  data,  currently  undergoing  development ,  is  now  partially  operative 
and  available  for  usage  under  certain  restrictions  which  will  be  changed  in 
the  future . 

3. 3 A. 1.2.   General  Functions 
Correlations 

1.  Correlations,  means,  standard  deviations,  and  covariances  are 
obtained  on  n  variables  (n  <  99)  over  m  observations  (m  <  32,000). 

2.  Results  are  printed  out  for 

a)  first  row  of  observations  read  in; 

b)  means  and  standard  deviations; 

c)  covariance  matrix; 

d)  correlation  matrix. 

The  output  format  used  is  floating  point  (EI5.7)  with  seven  digits  in  each 
result  of  a,  b,  and  c  above  and  fixed  point  (Fl^.8)  for  the  correlation 
matrix  results. 

3.  The  input  deck  submitted  must  conform  to  the  following: 


CARD  1 

CARD  2 
CARD  3 
CARD  h 


Problem  Run  Card  (Standard  DCS  ID  Card) 
Col.  1     Col.  8 


$  STATMON 
* 


C0RRELATI0NSbA=B  (where  b  represents  a  blank  spaced 

F0RMA.Tb * 

Format  is  FORTRAN  format  for  one  row  of  data, 
with  the  exception  that  the  format  string  should 
not  be  enclosed  in  parentheses  and  must  be 
terminated  by  an  asterisk  "*" . 
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CARD  5 


CARDS    6 
through  km+5 


DATAM3b(%n) 

where  m  is  the  number  of  observations  and 

n   is  the  number  of  variables  as  indicated 

by  the  FORMAT  card,  CARD  k. 
Data  (where  k   is  the  number  of  cards  per  row 

and  m  is  the  number  of  observations). 

All  data  must  be  read  in  as  floating  point 

numbers  with  an  E  or  F  format. 


Note:   Conditions  1  (limit  on  n)  and  2  (print-out  format  and  core  dump)  above 
are  restrictions  that  will  not  apply  when  STATMON  is  fully  developed.   Condition 
3  describes  only  one  of  the  many  systems  of  input  that  will  be  possible  in  the 
fully  developed  Statistical  Monitor.   The  A  and  B  noted  in  CARD  3  an<i 
CARD  5  can  be  any  alphabetic  name  up  to  six  characters  in  length.   The 
m  and  n   in  CARD  5  are  each  an  explicit  constant,  i.e.,  the  actual  constant 
value  itself.   The  b   in  CARDS  3,  k   and  5  is  a  blank. 

Estimates  of  Execution  Time  and  Execution  Pages  Out 

100  observations  (m)  over  20  variables  (n) 

1.1  mins .  8  pages 

100  observations  (m)  over  50  variables  (n) 

1.5  mins.  l6  pages 

100  observations  (m)  over  96  variables  (n) 

2.0  mins.  20  pages 

100  observations  (m)  over  97  variables  (n) 

2.3  mins.  1+1  pages 

100  observations  (m)  over  98  variables  (n) 

2.5  mins.  ^-1  pages 

100  observations  (m)  over  99  variables  (n) 

2.8  mins.  k2  pages 
1000  observations  (m)  over  99  variables  (n) 

5.2  mins.  k-2   pages 
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3.3«^'1«3-   Basic  Matrix  Operations 

*  is  an  operator  which  causes  matrix  multiplication  to  be  performed. 

1.  Two  matrices  are  multiplied:  A/    N  x  B,    %  (m.n.p  <  100). 

(m,n)     (n,p)    '  '*   - 

2.  A  standard  format  for  printed  output  is  used.   Results  consist 


of  the  result  matrix  C, 


in  floating  point  format  with  eight  digits  to 


'(™,P) 
the  left  of  the  decimal  point. 

3.   The  input  deck  submitted  must  conform  to  the  following: 
Col.  1    Col.  8 


CARD  1 
CARD  2 
CARD  3 


$  STATM0N 


CARD  k 


CARDS    5 
through  km+4 
CARD    km+5 


CARD 


km+6 


CARD    km+7 
through  k  n+km+6 


CARD 


k  n+km+7 


Problem  Run  Card  (Standard  DCS  ID  Card) 

F0RMATb * 

FORMAT  is  FORTRAN  format  for  one  row  of  data,  with 
the  exception  that  the  format  string  should  not 
be  enclosed  in  parentheses, and  is  ended  with  an  "*". 
DATAbA3b(m,n)  where  m  is  the  number  of  rows  and 
n   is  the  number  of  columns  as  indicated  by  the 
F0RMAT  card,  CARD  3. 

Data  A,  where  k  is  the  number  of  cards  per  row 
and  m   is  the  number  of  rows. 

F0RMA.Tb * 

This  F0RMAT  applies  to  matrix  B.   See  CARD  3 

above  for  restrictions. 

DATAbB3b(n,p)  where  n   is  the  number  of  rows  and 

p   is  the  number  of  columns  as  indicated  by  the 

FORMAT  card,  CARD  km+5 . 

Data  B,  where  k  is  the  number  of  cards  per  row 

and  n   is  the  number  of  rows. 

Col.  16 

A*B=C 

(No  spacing  permitted  between  Col.  l6 
and  end  of  RESULT  name). 
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Condition  1  (m,n,p  <  100)  will  eventually  "be  changed  to  allow  for  larger 
limits .   Condition  2  will  eventually  be  altered  to  allow  user  control  of 
format  for  output  results.   A  and  B  used  in  CARDS  k,    km+6,  and  k  n+km+7 
can  "be  any  alphabetic  name  up  to  six  characters  in  length.   The  m  ,  n  , 
and  p  in  CARDS  k   and  km+6  are  each  an  explicit  constant,  i.e.,  the  actual 
constant  value  itself.   The  b  in  CARDS  3>  k,   kra+5  and  km+6  is  a  blank. 

Estimates  of  Execution  Time  and  Execution  Pages  Out 

A(l00,100)  "  B(l00,  20)  "  C(l00,  20) 
1.8  mins .      9  pages 

A(ioo,  50)  *  B(50,  +3)  =  C(ioo,  k3) 

2.0  mins.     1^  pages 

A(l00,100)  'r  B(l00,  SO)  =  °(l00,  SO) 
2.k   mins,     18  pages 

A(l00,100)  '*  B(ioo,ioo)  :  C(100,100) 
3-0  mins.     2k   pages 

3-3.^.2.   The  IBM  6S0  Simulator  (SIM6S0) 

This  routine,  SIM6S0,  will  simulate  on  an  IBM  709+,  an  IBM  650  with 
the  following  features  ° 

1.  A  2000  word  drum,  3  magnetic  tape  units,  I.  A.  S.,  and  3  index 
registers; 

2,  A  card  reader-punch  (533)  attached  to  Area  1  using  one  of  the 
Department  of  Computer  Science  Panels;  Standard  No,  1,  SAIT, 
or  Graduate  College;  and 

3*  A  printer  (407)  attached  to  Area  2  using  one  of  the  Department 
of  Computer  Science  Panels:  Standard  No.  2,  SALT,  or  Graduate 
College, 

A  very  limited  number  of  65O  programs  run  by  SIM65O  on  the  709^-  seem 
to  indicate  that  the  actual  execution  time  exclusive  of  card  reading  and  on-line 
printing  is  roughly  the  same  as  on  an  IBM  650.   Therefore  old  input-output 
time  must  be  subtracted  from  the  old  650  time  estimate. 

The  interested  user  is  referred  to  the  detailed  program  description 
"IBM  650  Simulator  on  709'+-i^01  System  (SIM650) -Library  Routine  0O-UOI-S65O-25-BX" 
available  from  the  Librarian  in  Room  165,  ERL. 
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3.3.k.k.     ipl-v 

3.3.k.k.l.      Introduction 

Recently,  there  has  "been  increasing  interest  in  writing  computer  programs 
for  which  the  data  term  is  larger  than  a  single  computer  word  and  is  such  that 
both  its  structure  and  its  contents  are  important.   Examples  of  such  data  terms 
are:   proofs  of  "basic  theorems  in  Euclidean  geometry,  from  which  other  theorems 
may  be  derived;  decision  trees  such  as  all  of  the  routes  available  from  city  A  to 
city  B,  or  the  possible  routing  of  a  part  through  a  machine  shop;  possible  budgets 
for  married  graduate  students  given  a  minimal  income.   Moreover,  the  processing 
of  these  data  terms  should  provide  for  their  dynamic  structural  alterations,  and 
in  fact  "che  processing  itself  should  be  allowed  to  be  hierarchial  in  nature.   This 
gave  rise  to  the  concept  of  a  list  and  therefore  a  list  processor,  of  which  IPL-V 
is  an  example.   A  list  is  a  set  of  words  having  the  property  that  each  member  of 
the  set  is  connected  to  that  member  preceding  it  in  the  set.   Each  word  has  two 
parts :   one  is  the  contents  of  the  word  and  the  other  is  the  link  to  the  next  word 
in  the  list.   The  contents  of  a  list  member  can  be  the  name  of  another  list  and  in 
this  manner  a  list  structure  can  be  formed.   A  list  processor  provides  a  language 
for  creating,  aggregating  and  modifying  such  complex  data  terms.  So  far,  most  of 
the  applications  of  list-processing  languages  have  been  in  heuristic  programming 
including  a  program  to  play  chess,  a  program  to  prove  theorems  in  the  propositional 
calculus,  a  management  science  program  which  assigns  tasks  to  stations  of  an 
assembly  line,  and  programs  which  simulate  human  behavior.   The  P0RTH0S  version 
of  IPL-V  is  a  modified  version  of  the  Bell  Laboratory  IPL-V  obtained  from  the 
University  of  Michigan.   The  basic  reference  for  IPL-V  programmers  is  the 
Information  Processing  Language  -  V  Manual,  Allen  Newell  editor,  Prentice  Hall 
Inc.,  196l,  second  edition  196U.   This  writeup  will  describe  differences,  deletions, 
and  additions  to  the  language  described  in  the  manual.   This  writeup  refers  to  the 
1961  edition  but  it  is  recommended  that  users  refer  to  the  196^  edition  which  has 
a  more  informative  introduction  and  some  modifications.   The  differences  are  made 
explicit  in  the  196^  edition;  some  of  the  modifications  will  be  added  to  the 
P0RTH0S  IPL-V. 
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3.3.^.^.2.   The  IPL-V  Translator 

IPL-V  is  an  interpretive  language  which  acts  in  two  distinct  segments. 
The  first  segment  is  a  one -pass  assembler  and  loader.   This  segment  converts 
the  symbolic  deck  into  internal  list  structures  and  loads  these  list  structures 
into  core  storage.   The  second  segment  interprets  the  list  structures  which 
represent  the  user's  program  and  carries  out  the  processes  indicated  by  the 
elements  of  these  structures.   The  distinction  between  translation  and  execution 
which  is  made,  e.g.,  in  running  FORTRAN,  SCATRE,  or  MAD  decks,  does  not  exist 
in  running  IPL-V  programs;  hence  the  words  'interpretation'  and  'execution'  will 
be  used  with  the  same  meaning.   The  IPL-V  translator  maintains  control  of  the 
job  throughout  its  processing;  control  is  relinquished  to  the  monitor  only  when 
the  job  is  to  be  terminated.   For  this  reason,  IPL-V  decks  cannot  be  stacked 
one  after  another  within  a  given  job;  an  IPL-V  program  is  a  total  job.   (Note, 
however,  that  in  many  cases  this  may  be  overcome  by  inprocess  loading  via  'Jl65'). 
Further,  IPL-V  programs  cannot  be  inter-mixed  with  routines  written  in  other 
languages  or  with  routines  in  binary  form  except  for  binary  primitives.   (see 
section  ^.^.k.k.lk. ) 

The  deck  make-up  for  an  IPL-V  job  is  similar  to  that  for  any  other 
processor  in  the  P0RTH0S  system.   That  is,  the  ID  card,  a  $  IPL-V  system  control 
card,  any  IPL-V  control  pseudo-ops  (defined  below)  and  the  IPL-V  symbolic  source 
deck.   The  only  other  system  control  cards  pertinent  to  an  IPL-V  run  are  $  REMOVE 
TAPES,  which  may  be  used  if  tapes  are  to  saved,  and  $  HALT  if  they  are  to  be  mounted. 

A  set  of  12  control  pseudo-ops  is  provided  to  allow  the  user  to  specify 
certain  options  and  processing  features  in  IPL-V.   These  pseudo-ops,  if  they 
appear  in  a  deck,  must  immediately  follow  the  system  control  card  arid  precede 
any  IPL-V  card.   The  mnemonic  for  the  control  pseudo-ops  is  punched  beginning 
in  column  8.   The  remainder  of  the  card  is  ignored  (but  column  7  must  be  blank). 
The  control  pseudo-ops  accepted  by  IPL-V  are  the  following; 

1.)   AUXD    --   Indicates  the  auxiliary  data  automatic  buffering  feature 

is  to  be  used  (see  later  section).  Logical  tapes  9  an(3- 
10*  are  used  for  this  purpose  and  are  no  long  available 
for  scratch  tapes  if  'AUXD'  is  used  in  the  job. 

2.)   A.UXR    --   Indicates  the  auxiliary  routine  automatic  buffering  feature 

is  to  be  used  (see  later  section).   Logical  tape  h   is  used 
for  this  purpose  and  is  then  unavailable  as  a  scratch  tape. 

*If  10  is  used,  indicate  to  the  operator  by  means  of  a  $$  comment  card  that  a  scratch 
tape  is  to  be  mounted  on  Logical  10. 
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3.) 

DUMP 

h.) 

NOLIST 

5.) 

PMORT 

6.) 

RELOAD 

7.) 

SAVE 

8.)        SNAP 


9 .  )        TAPE 


10.)        TPACE 


Causes  '1W15'  to  "be  executed  at  monitor  control  point 

(see  later  section). 

Turns  off  the  assembly  listing  of  the  program  both  during 

initial  loading  and  during  any  subsequent  inprocess  loading 

Causes  a  post-mortem  to  be  given  for  any  exit  from  IPL-V 

(except  error  exits  during  loading). 

Causes  a  reload  sequence  on  logical  tape  3-   See  the  section 

on  'save  for  restart  and  reload'  for  further  comments. 

Causes  a  halt  in  IPL-V  just  before  exit  to  the  Monitor. 

The  comment 

SAVE  TAPE(S)  AS  REQUESTED  ABOVE 
is  printed  online.   Sufficient  comment  cards  ($$-cards) 
should  have  followed  the  job  ID  card  to  properly  identify 
the  tape  to  be  removed  and  saved  and  to  label  the  tapes . 
The  system  control  card  $  REMOVE  TAPES  may  be  used  in 
place  of  the  'SAVE'  control  pseudo-op  to  provide  a  halt 
for  tape  removal. 

Causes  tracing  to  occur  during  interpretation  under  program 
control  (i.e.,  routines  headed  by  Q=3  initiate  tracing, 
routines  headed  by  Q=U  trace  only  if  the  calling  routine  was 
tracing) . 

Causes  logical  tape  2  to  be  used  as  the  input  tape  instead 
of  the  normal  system  input  tape.   Loading  continues  from  the 
system  input  tape,  however,  until  a  non-control  pseudo-op 
card  is  found.   (Type  9  cards  may  serve  this  purpose).   Logical 
tape  2  must  look  like  a  proper  input  tape  with  respect  to 
BCD  card  images,  but  card  look-ahead  is  not  required.   Before 
switching  input  tape,  the  comment 

MOUNT  TAPE  INDICATED  ABOVE  ON  UNIT  B2 
is  printed  online  and  a  stop  occurs.   Sufficient  comment 
cards  ($$-cards)  must  follow  the  job  ID  card  to  properly 
identify  the  tape  to  be  mounted. 

Causes  all  routines  to  trace  regardless  of  the  Q  heading 
of  the  routines. 
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11.)   TERM    --  Causes  '1W1V  to  be  executed  at  monitor  control  points 

(see  later  section). 
12.)   COM     --  Treated  as  a  comment  and  printed  in  the  listing.   Note  that 

'COM'  is  not  subject  to  'NOLIST'  print  control. 

If  no  control  pseudo-ops  are  given  with  a  job,  then  the  following  assumptions 
are  made : 

1.)   The  deck  and  data  are  on  the  system  input  tape. 

2.)  A  listing  of  the  assembly  is  desired. 

3.)   Tracing  is  prohibited  and  a  post  mortem  is  given  for  an 

error  exit  only. 
h.)      No  auxiliary  tape  storage  will  be  required.   (The  program 

may  use  scratch  tapes,  but  the  auxiliary  automatic  buffering 
feature  is  inhibited). 

An  IPL-V  run  is  defined  as  a  code  check  run  if  the  control  pseudo-op 
'TRACE'  appears  or  if  the  control  pseudo-O-  'N0LIST'  does  not  appear.   This 
definition  applies  to  jobs  loaded  via  a  reload  sequence  (see  later  section) 
as  well  as  to  jobs  loaded  directly  from  the  system  input  tape.   A  code  check 
run  is  limited  to  at  most  3  minutes  of  execution  and  to  at  most  30  pages  of 
output  during  execution. 


, Date : 

5/1/^5 

Section: 

3.3.^.^2. 

Page  : 

3 

Change : 

Porthos 

Manual 

^.^.k.k.Q.      Printing  Via  'J15n'  Primitives 

An  IPL-V  job  is  automatically  terminated  when  the  printed  output 
exceeds  the  output  page  estimate  or  the  punch  output  exceeds  the  output  card 
estimate.   Only  that  output  going  onto  the  system  output  tape  during  execution 
is  counted  against  the  job-  estimates. 

The  output  unit  for  'J150',  'J151',  'J1521,  'J153.1,  and  'J155'  is 
controlled  "by  the  integer  data  term  named  in  'W20'.   If  this  data  term  is 
zero,  the  system  output  tape  is  used  for  printing.   If  this  data  term  is  1 
through  5>  then  the  appropriate  tape  is  used  and  a  BCD  line  of  up  to  131 
characters  is  written.   If  the  data  term  is  21,  the  system  output  tape  is 
used  and  a  BCD  punch  record  of  up  to  80  columns  is  written.   If  the  data  terra 
is  11  through  15,  then  10  is  subtracted  to  get  the  IPL-V  tape  number  and  a  BCD 
record  of  up  to  80  columns  is  written  on  the  appropriate  tape.   For  punch 
records,  the  first  80  columns  of  the  buffer  are  used.   For  print  records,  a 
carriage  control  column  is  added  to  the  line;  this  is  determined  by  the  data 
term  named  in  VW22'.   The  first  print  column  (or  punch  column)  in  the  buffer 
is  given  by  the  data  term  named  'W21'.   Initially,  'W20'  names  an  integer 
zero;  'W21r  and  !¥22'  each  name  an  integer  1. 

If  a  list  structure  with  a  local  name  is  printed  by  'J150',  the 
converted  name  will  be  f9-0'.   Sublists  of  any  list  structure  are  always 
numbered  consecutively  (as  encountered)  starting  with  '9-1'. 

Data  terms  are  always  printed  in  the  format  given  in  the  IPL-V 
Manual,  with  the  exception  of  floating  point  numbers.   The  format  for 
these  is  '-123^-56-12'  --  plus  signs  are  not  printed.   The  field  length 
is  thus  either  10  or  11  columns. 

When  local  symbols  are  printed  (except  in  the  case  of  those  trans- 
lated by  'J150'),  they  are  followed  by  an  asterisk  ('*'). 
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3 .  3-  ^-  -  ^+  >9  •   New  and  Missing  Primitives 

The  following  primitives  are  listed  in  the  IPL-V  Manual  but  are  not 
present  in  the  P0RTH0S  IPL-V: 

J102 

J106 

Jl^-0        through  Jli4-6 

JI67 

J170 

Attempted  execution  of  a  missing  primitive  will  cause  an  error  comment,  a 
post  mortem,  and  a  termination  of  the  job. 

The  following  primitives  are  not  described  in  the  IPL-V  Manual  but 
are  available  in  the  P0RTH0S  IPL-V: 

J103 

J104 

J109 

J180   through  J186 

JI89 

These  new  primitives  are  used  as  follows  (the  nomenclature  of  the  IPL-V  Manual 
is  used) : 

J103      Causes  the  routine  named  in  'WlU'  to  be  executed  at  monitor  control 
points . 

J1C4      Causes  the  routine  named  in  'W15'  to  be  executed  at  monitor  control 
points . 

J109      Causes  the  present  auxiliary  tape  being  used  by  the  auxiliary  data 
automatic  buffering  feature  to  be  compacted  to  a  new  auxiliary  tape 
(see  section  3. 3.k.k,  10'. -)'. 

The  read  line  primitives  ('Jl80'  through  'Jl86'  and  'JI89')  provide  a 
means  of  reading  a  BCD  card  under  control  of  an  IPL-V  program  and  translating 
selected  fields  into  IPL-V  symbols  or  data.   The  control  cells  used  by  these 
primitives  are  as  follows: 
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Wl8       Names  the  input  tape;  1W18  =  0  means  the  system  input  tape. 

Initially,  1W18  =  0.   (Note  that  if  'TAPE'  occurred,  then  1W18  =  0 
indicates  logical  tape  2  instead  of  the  system  input  tape). 

W2U       Names  the  current  read  line,   ('Read  Lines'  and  'Print  Lines'  are 
identical  and  interchangeable.   Lines  for  either  or  both  purposes 
are  specified  by  type  3>  Q  =  1  cards).   An  internal  buffer  of 
length  131  words  is  initially  specified  by  'W2V  to  be  used  either 
in  printing  or  in  reading;  this  requires  no  type  3>  Q  =  1  cards. 
If  one  wishes  to  work  with  several  buffers  simultaneously,  however, 
additional  buffer  regions  must  be  reserved  and  the  program  must  be 
set  and  reset  the  buffer  name  in  'W2V  . 

W25       Names  a  decimal  integer  data  term  specifying  the  left  column  of  the 
current  input  field.   Initially,  1W25  =  1. 

W30       Names  a  decimal  integer  data  term  specifying  the  size  (number  of 
columns)  of  the  current  input  field.   Initially,  1W30  =  1. 

The  read  line  primitives  are  as  follows : 

Jl80      The  next  record  on  tape  1W18  is  read  to  line  1W2^.   (The  record  is 
assumed  to  be  BCD,  80  columns).   Column  1  of  the  record  is  read 
into  column  1  of  the  line,  and  so  forth.   H5  is  set  +.   If  no  record 
can  be  read  (EOF  condition),  the  line  is  not  changed  and  H5  is  set  -. 
If  a  binary  record  occurs,  an  error  message  is  printed  and  the  job  is 
terminated. 

Jl8l      The  IPL-V  symbol  in  the  field  starting  in  column  1W25  and  of  size 
1W30,  in  line  1W2^,  is  input  to  HO  and  H5  is  set  +.   The  symbol  is 
regional  if  the  first  (leftmost)  column  holds  a  regional  character; 
otherwise  it  is  absolute  internal.   All  non-numeric  characters,  except 
in  the  first  column,  are  ignored.   If  the  field  is  entirely  blank  or 
ignored,  there  is  no  input  to  HO,  and  H5  is  set  -.   In  either  case, 
1W25  is  incremented  by  the  amount  IW30. 
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Jl82      The  field  specified  as  in  'Jl8l'  is  taken  as  the  value  of  a  data  term, 
input  data  term  (0)  is  set  to  that  value  and  left  as  output  (0),  and 
H5  is  set  -i-.   The  data  type  of  input  (O)  determines  the  data  type  of 
the  output.   If  the  input  (0)  is  a  decimal  or  octal  integer  or  BCD, 
the  read  line  is  interpreted  as  that  type.  Any  other  data  type  is 
treated  as  BCD.   In  composing  BCD  data  terms,  the  field  is  left- 
justified  with  trailing  blanks.   If  the  specified  field  width  exceeds 
five  columns,  the  rightmost  five  columns  are  used.   In  composing 
decimal  and  octal  data  terms,  non-numeric  characters  are  ignored.   If 
the  resulting  information  exceeds  the  capacity  of  the  data  terms,  the 
rightmost  digits  are  retained.   If  the  line  read  field  is  entirely 
blank  (or  non-numeric,  for  integer  data  types),  (0)  is  cleared  (to 
blanks  for  BCD,  to  zero  for  integer)  and  H5  is  set  -.   In  either 
case,  1W25  is  incremented  by  the  amount  1W30. 

JI83      (0)  is  taken  as  a  decimal  integer  data  term.   Line  1W2^+  is  scanned, 
left  to  right,  starting  with  column  1W25  +  1,  for  a  blank.   One  is 
added  to  (0)  for  each  column  scanned,  including  that  in  which  the 
scanned-for  character  ( 'blank'  in  JI83)  is  found.   (0)  is  left  as 
output  (0).   H5  is  set  +  if  the  character  is  found  in  the  line  and 
-  if  it  is  not.   (Thus,  if  input  (0)  =  1W25,  after  scanning  output 
(0)  will  specify  the  column  holding  the  scanned-for  character.   If 
input  (0)  =  the  decimal  integer  0,  after  scanning  output  (0)  will  be 
the  size  of  the  field  beginning  in  column  1W25  and  delimited  on  the 
right  by  the  next  occurrence  of  the  scanned-for  character.) 

J18U-      Same  as  'Jl83',  except  scans  for  any  non-blank  character. 

JI85      Same  as  'Jl83'  except  scans  for  character  (0)  counting  into  decimal 
integer  term  (l).   Input  (l)  is  left  as  output  (o).   If  input  (0)  is 
a  regional  symbol,  its  region  character  is  the  character  scanned  for. 
If  input  (0)  is  internal,  its  last  (low  order)  digit  is  the  character 
scanned  for. 
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Data  may  be  placed  in  auxiliary  storage  via  the  primitive  'J107' 
(see  the  IPL-V  Manual);  data  may  not  be  placed  on  auxiliary  during  loading 
(a  type  6  or  type  7  card  is  effective  during  loading  only  if  Q  =  0  on  the 
card).  An  'AUXD '  must  occur  with  the  deck  if  auxiliary  data  storage  is  to 
be  used.  A  buffer  is  reserved  internal  to  IPL-V  to  use  in  conjunction  with 
data  auxiliary  storage.   This  buffer  is  of  length  150;  any  data  list  structure 
requiring  more  than  150  locations  is  written  in  auxiliary  storage  as  several 
records.   During  execution,  the  primitive  'J72'  and  'J7V  can  operate  on 
data  list  structures  without  bringing  them  into  core  via  the  primitive  'J105'. 
All  other  primitives  assume  a  list  structure  given  as  input  to  be  in  core; 
violation  of  this  assumption  can  cause  any  one  of  many  errors.   The  primitive 
'J108'  may  be  used  to  test  whether  a  particular  data  list  structure  is  in  core 
or  on  auxiliary  storage  (see  the  IPL-V  Manual). 

A  data  list  structure  is  filed  in  auxiliary  data  storage  as  a  single 
record  of  up  to  150  words  if  the  list  structure  requires  150  or  fewer  core 
locations.   If  it  requires  more  than  150  core  locations,  the  data  list  structure 
is  filed  in  auxiliary  data  storage  as  a  set  of  records,  each  of  which  (except 
the  last  one)  is  150  words  in  length;  the  last  record  will  be  up  to  150  words 
in  length.   (An  auxiliary  data  storage  record  has  a  minimum  length  of  6  words 
to  prevent  difficulties  in  reading  and/or  writing  such  records  on  the  auxiliary 
tape.)   The  head  of  a  list  structure  filed  in  auxiliary  storage  has  in  its 
address  (the  'SYMB'  portion)  the  location,  internal  to  IPL-V,  containing  the 
logical  tape  number  of  the  auxiliary  data  tape  on  which  it  is  stored.   The 
decrement  of  the  head  (the  'LINK'  portion)  contains  the  record  number  of  the 
structure  on  the  auxiliary  data  tape,  and  the  head  has  a  prefix  (its  '  Q'  bit 
of  7,  which  designates  that  the  structure  is  in  auxiliary  storage.   When  a 
structure  in  auxiliary  data  storage  in  moved  to  memory  from  tape  or  is 
erased,  the  record  that  it  occupied  on  tape  is  no  longer  available.   A  tally 
of  these  'dead*  records  is  kept  and  when  the  ratio  of  inactive  to  active 
records  exceeds  l/h,    the  present  auxiliary  data  tape  is  'compacted'  onto 
another  tape  with  the  dead  records  eliminated.   Hence,  as  the  job  is  processed, 
the  auxiliary  data  tape  changes  back  and  forth  between  logical  tapes  9  and  10. 
(Note  that  inactive  data  list  structures  at  the  end  of  an  auxiliary  data  tape 
are  written  over  'J107'  and  are  not  counted  in  the  inactive /active  ratio. 
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Also,  compacting  is  performed  automatically  only  after  the  total  number  of 
records  on  the  auxiliary  data  tape  exceeds  10).   An  IPL-V  program  may  cause 
compacting  of  the  auxiliary  data  tape  at  any  time  via  'J109'. 


Date: 

5A/65 

Section: 

3.3.k.k.lO. 

Page: 

3 

Change : 

Porthos 

Manual 

3. 3 •^•^••12.   Inprocess  Loading 

Inprocess  loading  may  occur  via  the  primitive  'Jl65'.   This  primitive 
causes  loading  to  occur  from  the  system  input  tape  (or  from  logical  tape  2  if 
the  'TAPE'  pseudo-op  has  occurred).   Only  type  5 }    type  6,  and  type  7  cards 
are  effective;  all  other  type  cards  are  ignored  (except,  of  course,  type  0 
cards,  which  are  loaded).   All  type  2  and  type  3  cards  necessary  for  the 
deck  to  "be  loaded  must  have  occurred  initially.   Control  pseudo-ops  are  not 
effective  and  will  cause  a  loading  error.   Loading  continues  until  a  type  5 
card  with  a  regional  'SYMB'  is  found,  which  causes  execution  to  begin  at  that 
regional  symbol.   An  assembly  listing  is  given  if  'NOLIST'  has  not  occurred. 
If  an  EOF  is  the  first  thing  on  the  tape,  no  loading  occurs  and  execution 
continues  with  the  first  statement  after  the  'Jl65'.   If  no  type  5  card  with 
a  regional  symbol  in  'SYMB'  occurs,  the  job  is  terminated.   Routines  loaded 
via  type  6  or  7  cards  are  placed  at  the  end  of  the  auxiliary  routine  tape. 
When  a  load  sequence  is  initiated,  a  type  5>  6,  or  7  card  should  occur  first. 
If  not,  all  cards  up  to  the  first  type  5,  6,  or  7  card  are  skipped.   Loading 
begins  with  the  first  type  5 >    6,  or  7  card  found  on  the  tape.   The  deck  loaded 
may  contain  old  or  new  routines  and/or  data  which  load  into  space  previously 
used  or  into  space  not  previously  used.   New  versions  of  old  routines  may  be 
loaded  either  into  core  or  into  auxiliary  routine  storage  regardless  of  whether 
the  old  versions  were  in  core  or  in  auxiliary.   (See  the  IPL-V  Manual.   Note 
that  1W18  is  ignored  ' JI65 '  contrary  to  the  Manual).   Execution  estimates  must 
include  time  and  page  estimates  for  any  inprocess  loading  to  "be  done. 
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3.3'^'^«13-  Arithmetic  Processes 

'J110',  'Jill*,  'J112\  'J113S  'JH5S  and  'Jll6'  admit  integer, 
floating  point,  and  octal  data  terms  only.   The  type  of  result  (0)  of  'J110' 
through  'J113'  is  as  follows: 

(1)  (2)  (0) 


FLOATING  ANY  FLOATING 

ANY  FLOATING  FLOATING 

INTEGER  INTEGER  INTEGER 

INTEGER  OCTAL  INTEGER 

OCTAL  INTEGER  OCTAL 

OCTAL  OCTAL  OCTAL 

'J125'  admits  integer,  floating  point,  and  octal  data  terms  only.   'J128'  will 
translate  integer  to  floating  point,  floating  point  to  integer,  octal  to 
integer,  and  integer  to  octal.   In  addition,  floating  point  and  BCD  data  terms 
are  translated  to  octal  by  setting  P  =  J>,    and  octal  is  translated  to  BCD  by 
setting  P  =  2.   All  other  translations  (BCD  to  integer,  octal  or  BCD  to 
floating  point,  and  integer  or  floating  point  to  BCD)  are  illegal. 
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3.3.^.5.  LPGl 

3.3.^.5.1.   Introduction 

This  program  is  an  adaptation  of  SHARE  program  7fl037-SCM2  (Standard 
Oil  Company  of  California,  Mathematical  Programming  System  2)  to  the 
University  of  Michigan  Executive  System,   The  details  of  the  SCM2  program  are 
contained  in  SHARE  Report  #1067 J  the  adaptation,  due  to  the  School  of  Business 
Administration,  University  of  Michigan,  is  explained  in  SHARE  Secretary 
Distribution  118.  Additional  minor  modifications  have  been  made  at  this 
installation. 

LPG1  solves  linear  programming  problems  by  means  of  the  revised- 
simplex  algorithm. J  It  can  handle  problems  having  up  to  200  rows,  599  non- 
artificial  variables  (including  slack  variables),  and  3^-88  non-zero  matrix 
entries.  Since  this  is  a  single-precision  code,  it  is  quite  possible  that 
some  linear -programming  problems  within  this  range  are  not  solvable.   There 
is  also  a  limitation  of  10,000  non-zero  transformation  entries  being  held 
in  storage  at  one  time.   LPG1  has  no  provisions  for  multiple  right-hand 
sides  or  parametic  programming.   There  is,  however,  a  composite  algorithm. 

Basically  LPG1  is  SCM2  restricted  to  off-line  operation  only. 
However,  a  new  subroutine  has  been  added.   When  the  proper  control  card  is 
used,  MATRIX  prints  the  transformed  matrix  at  any  step  in  the  solution  process. 

This  write-up  is  essentially  SHARE  Report  #1067  with  the  changes 
explained  in  SHARE  Secretary  Distribution  118  incorporated.   A  number  of  changes 
have  also  been  made  for  clarification.   The  final  section  assists  those 
accustomed  to  LP-90  in  using  LPG1. 

In  the  near  future  an  option  will  be  available  allowing  the  direct 
use  of  LP-90  format  data  cards.   This  option  will  include  automatic  creation 
of  slack  vectors  and  will  allow  the  use  of  row  names  as  well  as  row  numbers 
on  the  data  cards.   There  will  be  other  features  to  this  option,  the  details 
of  which  will  be  announced  later. 


For  mathematical  details  see  Hadley,  G.,  Linear  Programming,  pp.  197-220, 
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3. 3 •^•5*2.  Statement  of  Problem 
(l)  Problem  Formulation 

A  linear  programming  problem  usually  involves  the  minimizing 
(maximizing)  of  a  linear  form  (objective  function) 

1)  Z   C  X. 

j=l   J   J 

subject  to  the  constraints    X.  >  0  (j=l,...,n)  and 

J 

n 

2)  Z   A..X.  <,=,>     B.     (i  -  3,...,m) 

j=l   1J  J 


The  B.  are  generally  assumed  to  be  >  0,  and  if  a  particular  B  is  not, 

then  by  multiplying  the  equation  containing  £  by  -1,  it  may  be  made  positive 

without  altering  the  problem. 

If  some  X.  is  not  required  to  be  >  0,  it  may  be  replaced  by 
J 

X   -X  _,  both  of  which  are  positive. 
n+1  n+2'  ^ 

If  the  kth  constraint  equation  is  AX.   <  B   ,    then  by  adding  a 

KJ  J    —    k 

new  variable  X  _  we  have  A.  .X.  +  X  „  =  B.  .   Similarly,  if  A.  .X.  >  B.  ,  we 
n+3         kj  j    n+3    k  J'     kj  j  -  k' 

subtract  a  new  variable  to  get  an  equality. 


(2)  Computational  Formulation 

The  solution  to  the  linear  programming  problem  will  involve  two 
phases.   In  Phase  I  a  solution  to  the  system  of  linear  inequalities  is  found; 
in  Phase  II  an  extremal  solution  is  found.   Here  we  discuss  Phase  I. 

Suppose  we  wanted  to  solve  the  problem  of  minimizing!  the  objective 


\   Any  function  may  be  maximized  instead  of  minimized  by  multiplying  its 
coefficients  by  -1.   LPG1  will  minimize  the  function  presented  to  it. 
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functions 


n  n 

E   C. .  X.   (i  =  1,2,..., p)  subject  to  E   A. .  X.  =  B.  (i  =  p+2, . . .,m), 

j=1   iJ  3  j=l   1J   J     x 


B.  >  0, 
l  — 


The  function 

n  n 

E   C  .  X.  is  to  be  minimized  first,  followed  by  E   C  n  .X.   etc 
j=l   PJ  J  o=l   P"1,J  J' 

Let  us  display  these  objective  functions  and  constraints  as  an  array 


C. ..  X..  +  C.  „  X  +     .  »  .    4    C.   X 
11  1    12  2  In  n 


cnxn+c0x_+  . . .       +        C      X 

pi     1  p2     2  pn     n 


A      o  -, X-,    +  A    Lo   oXo  +    •  •  •        +  A     o      x     =  B      o 
p+2,1  1  P+2,2  2  p+2^n  n  p+2 


A   .    Xn    +  A   0X0  +   . . .         +  A      X     =  B 

ml     1  m2  2  mn  n  m 

The  first  function  to  be  minimized  is  placed  in  row  p,  the  second  in  row  p-1, 

etc.  The  (p+l)st  row  is  left  blank  because  the  actual  computation  (Phase  l) 

will  be  initiated  by  adjoining  to  the  problem  m-p-1  artificial  variables  in 

terms  of  which  an  immediate  artificial  starting  solution  may  be  found.   LPG1 

will  enter  unit  costs  for  these  variables  and  reduce  their  sum  to  zero.   This 

completes  Phase  I.   In  Phase  II  the  true  objective  function  is  minimized. 

Note  that  if  we  consider  the  A..  (i=p+2, . . . ,mj  j=l,.„.,n)  to  be 

elements  of  a  m-p-1  x  n  matrix  A  and  if  there  is  an  identity  matrix  of  order 

m-p-1  contained  in  the  last  m-p-1  columns  of  A,  then  we  have  a  starting  basis 

and  may  skip  Phase  I.   This  would  be  the  case  if  the  constraints  were  all  of 

the  form 

E  A. .X.  <  B.. 
j    1J  J  "  X 


Date: 

5A/65 

Section: 

3-3A.5.2. 

Page: 

2 

Change : 

Por 

thos  Manual 

3 . 3  •  ^- •  5  •  3  •   Standard  Procedure 

The  deck  will  consist  of  a  $  LPG1  system  control  card  followed  by  input 
data  and  control  cards  arranged  according  to  (l)  and  (2)  below. 

(l)   Input  Data 

This  data  consists  of  the  matrix  entries  A.  .,  B.,  C.  of  equations  l) 

ij    11 

and  2)   of  section  3»3«^*5»2.     One  matrix  entry  is  punched  per  card;  zero 
entries  need  not  be  punched.   The  card  format  for  a  matrix  entry  is 

COLUMN    1     2-6         7-9         10 -2k  25-80 

b     CNAME       RN0         ENTRY       C0MMENIS 

where     b  =  Blank 

CNAME  =  Column  name  (5  Hollerith  Characters) 
RN0  =  Row  number  (Right-Justified). 

Card  columns  25-80  are  not  used  as  input  and  may  contain  comments. 

All  cards  containing  matrix  entries  from  one  particular  column  must  be 

adjacent,  but  these  cards  need  not  be  in  any  special  order.   Cards  containing 

all  of  the  matrix  entries  A. .  must  precede  the  cards  containing  B. . 

ij  i 

The  B.  cards  are  punched  using  the  above  format,  except  that  card 
columns  2-6  are  irrelevant.   Here  again  zero  entries  need  not  be  punched. 

Two  cards  precede  the  matrix  entries .   The  first  is  the  TITLE  card, 
containing  Hollerith  information  in  columns  1-66.   This  information  will  be 
printed  out  at  the  beginning  of  the  problem  and  the  contents  of  columns  1-6 
will  be  printed  in  the  Short  Output  option  under  heading  IDENT. 

The  second  card  is  a  control  card  bearing  the  six  Hollerith 
characters  MATRIX  in  columns  1-6.   The  cards  containing  the  entries  A.,  must 
be  separated  from  the  cards  containing  the  B.  entries  by  means  of  a  card  having 
the  Hollerith  characters  FIRSTB  in  cols.  1-6. 

The  final  control  card  is  one  with  the  letters  E0F  punched  in  columns 

1-3- 

The  collection  of  cards  referred  to  in  this  section  is  called  the 
data  package . 
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(2)   Control  Cards 

The  data  (control  cards  and  data  package)  for  this  program  are  arranged 
as  follows : 

1„  When  the  problem  in  its  standard  form  requires  artificial  variables  for  an 
initial  solution,  the  control  cards  are 

Cols.   1-2 
12 
0^ 

TITLE  CARD 
DATA  PACKAGE 

06 
07 
09 

2.  When  the  problem  in  its  standard  form  does  not  require  artificial  variables 
for  an  initial  solution,  the  control  cards  are 

Cols.   1-2   6-10   11-15   16-20   21-25   26-30   31-35 

12 
01 
50     0       1       1       20      0      200 


0k 


TITLE  CARD 
DATA  PACKAGE 


06 
07 
09 

The  meanings  of  the  control  cards  aref 

12  Clear  data  region 

01  Special  Parameter  Card 

50     0       1       1       20      0      200 

This  card  contains  the  parameters  of  control  card  01.  All  of 
the  entries  are  explained  later,  but  we  note  here  that  the 
entry  0  in  cols.  6-10  means  no  Phase  I  will  be  done, 

Ok     Read  data 

06  Start  Phase  I 

07  Start  computation 
09  Terminate  problem 

A  sequence  of  problems  may  be  run  without  reloading  the  program.   To 

do  this,  simply  remove  all  of  the  09  control  cards  at  the  end  of  each  deck 

except  the  last. 

|  For  a  list  of  all  control  cards  used  by  LPG1,  see 
section  3.3A.5.U. 
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( 3 )   Output 


There  are  two  types  of  standard  output,  depending  on  the  status  of 
the  problem  being  solved.  Short  Output  consists  of  four  lines  of  printing 
giving  twelve  numbers  associated  with  the  problem  (see  example  below).   These 
numbers,  identified  by  their  headings  in  the  output,  are  as  follows: 


IDENT 
COND 


FORM 

ITERATION 

NEW  J 

OLD  J 

POSIT 

OBJECTIVE 

DELCT 

DELTA  MIN 

THETA 

DETERM 


First  six  characters  of  first  record  of  data  package. 
Condition  number  of  problem.   This  has  a  value  from  1  to  5 

1.  One  iteration  has  taken  place.   Nothing  new. 

2.  End  of  Phase  I. 

3.  End  of  Phase  II. 

k.      The  problem  has  no  feasible  solution. 

5.  No  pivot  can  be  found.   Problem  has  infinite  solution. 

Row  number  of  form  being  minimized. 

Number  of  current  iteration. 

Name  of  column  just  brought  into  basis. 

Name  of  column  just  replaced  in  the  basis. 

Position  in  basis  in  which  change  took  place. 

Value  of  form  being  minimized  currently. 

Current  number  of  negative  5.'s. 

Minimum  6i !s„  J 

Pivot  ratio.   This  times  5's  gives  change  in  objective. 

Value  of  determinant  formed  by  current  basis. 


In  the  standard  procedure,  Short  Output  is  given  at  the  end  of 
Phase  I  and  at  the  end  of  Phase  II. 

Long  Output  is  given  at  the  end  of  Phase  II.  This  consists  of 
lists  having  M  entries  each  having  the  following  headings : 


J 
X(J) 

Y(D 
P(D 


Name  of  column  in  basis 

Value  of  variable  J 

Position  in  basis  at  which  J   stands 

Transformed  representation  of  new  column 

Price  on  constraint  I   (negative  of  shadow  price) 


< 


In  case  condition  k   (no  feasible  solution)  or  condition  5  (infinite 
solution)  occurs,  besides  the  above  output,  so-called  Horizontal  Output  is 
given,  consisting  of  lists,  ordered  in  the  manner  in  which  the  columns  appeared 
in  the  data  deck,  of  column  names  (j),  values  of  the  corresponding  variables, 
the  quantities  5.,  and  the  position  occupied  in  the  basis, 

J 
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3#3.U.5.^.   General  Procedure 
l)  Control  Cards 

Below  is  a  complete  list  of  control  cards  for  LPG1. 


01   Special  Parameter  Card.   Will  cause  the  inputting  of  parameters  punched  on 
the  card  following  the  01  control  card.   The  parameters  are  punched  as 
follows : 


Entry 


Cols.    1-5 

nl 

Program 
Symbol 


6-10 


11-15 


\ 


KM(3) 


KM(U) 


"3 

Informal 
Name 

INV.    FREQ. 


PHASES   0NE 


16-20 


KM(5) 


PHASES 


KM(6) 


FIRST   F0RM 


n5  KM(7) 


ERR   FREQ. 


21-25 

nr 


5      "6 
Description 


26-30 

n. 


31-35 


Number  of  iterations  between  calling 
the  subroutine  VERS  which  reinverts 
the  current  basis. 

Number  of  Phase  I's  to  be  done.   Set  to 
1  in  standard  procedure  and  should  be 
1  in  general  procedure  except  under 
extraordinary  circumstances,  such  as 
when  no  artificial  variables  are  needed 
for  starting  solution,  in  which  case 
it  is  set  to  0.   Note  that  in  this  case 
control  card  06  "Start  Phase  I"  will 
still  be  used  even  though,  mathematically, 
there  is  no  need  for  Phase  I,  for  in 
this  case  control  card  06  performs  some 
initializing  functions. 

Total  number  of  functions  to  be 
minimized.   Set  to  2  for  standard  proce- 
dure, except  when  no  artificial  variables 
needed  for  starting  solution,  in  which 
case  it  is  set  to  1. 

Row  number  of  first  function  to  be 
minimized.   Set  to  2  for  standard 
procedure,  except  when  no  artificial 
variables  needed  for  starting  solution, 
in  which  case  it  is  set  to  1. 

Number  of  iterations  between  calling 
the  subroutine  ERR,  which  computes  and 
outputs  the  sum  and  maximum  of  the 
right-hand-side  and  pricing  errors. 
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7 


KM(8) 
KM(9) 


LAST  ITER. 


Not  used. 

Iteration  number  after  which  a 
control  card  is  read. 


Note  that,  as  with  all  these  inputs,  all  the  parameters  must  he  punched,  for 

a  blank  field  is  read  as  zero. 

An  example  of  the  use  of  the  01  control  card  is ; 

01   Read  Inv.  Freq.,  Phas .  I,  Phas.  II,  1st  Form,  Err  Freq.,  Not  Used,  Lst.  Itei 
50    1     2    2   20     0   200 

In  this  example  reinversion  will  occur  every  50  iterations,  the  next 
three  parameters  are  standard,  error  checking  will  occur  every  20  iterations,  and 
a  control  card  will  be  read  after  iteration  200  is  performed. 

If  the  basis  is  reinverted  during  the  computation,  round-off  errors 
may  be  reduced  and  the  number  of  transformations  in  the  product  form  of  the 
inverse  will  be  reduced  also.   The  user  will  have  to  judge  if  the  additional 
time  for  reinversion  is  justified  for  his  problem. 


02   Card  for  non-standard  floating  point  constants 

Seven  floating-point  constants  may  be  loaded. 


SOURCE 
PROGRAM 


Z(l) 


Z(2) 


z(3) 


z(^) 


These  are 


INFORMAL 
NAME 

Y  T0L. 


PH. I  T0L. 


D-J  T0L, 


WEIGHT 
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DESCRIPTION 

A  small  positive  number.   In  choosing  the  pivot 
row  in  subroutine  R0W,  denominators  Y(l)  less  than 
this  are  deemed  non-positive.   In  the  standard 
procedure  it  is  set  to  0.00001,  which  seems  to  be 
a  good  general  value . 

A  small  positive  number.   Phase  I  is  declared 
finished  when  the  total  infeasibility  falls  below 
this.   A  good  general  value  is  0.0001  times  the 
sum  of  the  right-hand-side  entries.   Set  at  0.001 
initially. 

A  small  negative  number.   Reaching  of  a  minimum 
is  declared  when  all  the  8n's  are  greater 
than  this.   A  good  general  value  should  be  about 
0.0001  times  the  largest  cost-row  entry.   Initially 
set  at  -0.001. 

In  Phase  I  the  prices,  P(l),  used  in  selecting 
the  next  basic  column  are  formed  as  the  sum  of  the 
Phase  I-objective  function  prices  and  this  quantity 
times  the  prices  from  the  next  objective  function. 
This  is  initially  set  at  zero.   A  good  general  value 
to  use  is  about  one-tenth  the  reciprocal  of  the 
largest  entry  in  the  first  objective  function. 


Z(5) 

PIV  ROW  TOL 

z(6) 

TRAN.  TOL 

Z(7) 

PIV  TOL 

In  routine  JMY,  columns  whose  pivot-row  entries  are 
smaller  than  this  are  skipped.   Ordinarily  zero. 

In  routine  PIV  3,  transformation  elements  whose 
magnitudes  are  less  than  this  are  skipped.   Initially 
set  at  zero. 

In  routine  CYC  1,  the  vector  selected  to  enter  the 
basis  is  rejected  if  its  pivot  is  smaller  in 
magnitude  than  this.   Initially  set  at  zero. 

If  non-standard  floating  constants  are  desired,  they  are  punched  on  one 

card  in  fields  of  width  10  in  the  format  for  FORTRAN  floating  input  (see  example 

below)  in  the  order  of  the  above  list. 

02  Read  Y  (+),  ENDPH1  (  +  ),  DJ  (-),  W  (+),  PRT  (+),  TT  (  +  ),  PT  (+) 
1.0E-05    1.0E-05    -1.0E-01+   1.0E-01   0.0E  00   1.0E-09   1.0E-02 

In  this  example  the  constants  have  been  set  at  values  frequently  used. 

03  Read  Output  Control 

Output  control  is  effected  by  assigning  numbers,  0-5,  to  an  internally 
stored  array  KP(k).   The  number  K  is  an  integer  from  1  to  5  denoting  respectively 
normal  cycle,  end  of  Phase  I,  end  of  Phase  II,  no  feasible  solution,  or  infinite 
solution.   When  output  subroutine  Q0T  is  called  internally  and  the  problem  is  in 
condition  K,  output  will  be  given  as  follows: 

KP(K)  =  0    None 

1  Short.  A  three -line  summary. 

2  Short  and  Long.   Three -line  summary  as  well  as  a  list  of  values 
of  basic  variables,  Y(l)  and  P(l). 

3  Short  and  Horizontal.   Three -line  summary  as  well  as  list  of  all 
variables,  their  values,  the  5-'s,  and  the  locations  of  the 
variables  in  the  basis,  if  any. 

h  Short,  Long,  Horizontal. 

5    Short,  Matrix,  Horizontal.   MATRIX  prints  the  transformed  matrix. 

It  should  be  noted  that  use  of  MATRIX  is  costly  in  terms  of  computer 
time  . 

Standard  values  of  KP(K)  are 

KP(l)  =  0 

KP(2)  =  1 

KP(3)  =  2 

KP(lf)  =  U 

KP(5)  =  ^ 
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Non-standard  output  control  characters  are  loaded  by  the  control  card  03  "with 
entries  on  the  next  card  "being  in  columns  1-6.   Thus  after  control  card  03> 
a  card  with  entries  02255  would  give  no  output  after  each  iteration,  but  would 
give  Short  and  Long  Output  at  end  of  Phases  I  and  II.   For  no  feasible  solution, 
or  infinite  solution,  Short,  and  Horizontal  and  Matrix  Output  will  be  given. 

There  is  a  special  output  control  available.   Use  of  control  card  l6 
will  result  in  output  being  given  as  soon  as  the  card  is  read,  and  the  type  of 
output  will  be  given  by  the  entry  in  col.  6  of  the  card  following  the  03  control 
card. 


Ok         Read  data 

05  Not  used 

06  Start  Phase  I 

This  card  calls  subroutine  NEW,  which  sets  up  the  start  of  the  problem, 
forming  the  initial  basis  headings „   On' return  from  NEW,  the  inversion 
subroutine  is  called,  setting  up  the  beginning  basis  inverse  from  the 
headings  provided  by  NEW.  After  this  is  done,  the  next  control  card  is 
read. 

07  Compute 

Returns  control  to  the  main  routine  to  continue  simplex  cycling.   Must 
be  used  after  the  start  Phase  I  control  or  any  other  interruption  of 
control  if  more  computing  is  to  be  done. 

08  Form  inverse 

Forms  basis  inverse  afresh  from  current  headings. 

09  Terminates  problem.   Exits  via  SYSTEM. 

10  Not  used 

11  Not  used 

12  Ready  for  new  problem 

Clears  data  region  and  prints  a  message. 

13  Check  solution 

Calls  ERR  and  prints  errors . 

lU    Not  used 

15  Not  used 

16  Special  output.   Call  Q0T(6). 

Calls  the  output  routines  for  condition  6,  for  which  you  should  have 
previously  set  up  the  type  of  output  desired  by  having  a  suitable  entry 
in  col,  6  of  card  following  03  control  card. 


IT 

Not 

used 

18 

Not 

used 

19 

Not 

used 

20 

Not 

used 

21  Message  Follows 

Reads  cols.  1-72  from  the  immediately  following  card  and  outputs  that, 

22  Not  used 
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3-3.^-5-5-   LPGl  Examples 
Example  I 

The  following  is  a  simple  example  of  a  linear  programming  problem. 
Suppose  we  are  faced  with  the  problem  of  obtaining  a  breakfast  which  would 
yield  exactly  150  calories,  have  no  more  than  0.2  grams  of  sodium  and  have 
at  least  3*0  grams  of  protein.  We  also  would  like  our  breakfast  to  be  as 
inexpensive  as  possible.   Suppose  we  have  available  four  breakfast  cereals, 
each  of  which  supplies  our  nutritional  needs  to  some  extent.   Under  each 
cereal  heading  will  be  found  cost,  number  of  calories,  grams  of  sodium,  and 
grams  of  protein  per  standard  serving. 

Crispies    Crunchies    Crackles    Chortles    Var.  5    Var.  6    Req. 
k.O  7.0         8.0         6.0 


150.0 

1^0.0 

170.0 

160.0 

.1 

0.1 

0.3 

0.3 

2.0 

k.O 

5.0 

3.0 

1.0 


150.0  Calories 
0.2  Sodium 
■1.0       3.0  Protein 


Note  that  we  have  introduced  new  variables,  Var.  5  and  Var.  6,  to  convert  the 
given  inequalities  to  equalities.  Note  also  that  we  have  left  row  2  blank, 
as  explained  in  our  previous  discussion. 

The  following  shows  the  complete  input  for  the  example.   Its  output 
is  shown  in  the  next  section. 


LPG1 


12 
0k 


Read  Data  (Cards) 


UGH 

The 

breakfast- 

-food  problem 

MATRIX 

CRISP 

1 

k. 

Crispies 

Cost 

CRISP 

3 

150. 

Crispies 

Cal 

CRISP 

k 

.1 

Crispies 

Na 

CRISP 

5 

2. 

Crispies 

Prot 

CRNCH 

1 

7. 

Crunchies 

Cost 

CRNCH 

3 

ll|-0. 

Crunchies 

Cal 
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CRNCH 
CRNCH 
CRACK 
CRACK 
CRACK 
CRACK 
CHORT 
CHORT 
CHORT 
CHORT 
VAR.5 
VAR.6 
FIRSTB 


EOF 

06 
07 
09 


k 

5 

1 

3 

k 

5 

1 

3 

^~ 

5 
k 

5 

3 
k 

5 


.1 


k. 


170. 


•  3 


5. 

6. 

160. 


•  3 


3. 
1. 

-1. 

150. 


.2 


3. 


Start  Phase  I 

Compute 

Terminate 


Crunchies 

Na 

Crunchies 

Prot 

Crackles 

Cost 

Crackles 

Cal 

Crackles 

Na 

Crackles 

Prot 

Chortles 

Cost 

Chortles 

Cal 

Chortles 

Na 

Chortles 

Prot 

Na  slack 

Prot  Overa£ 

te 

Calories  (Equality) 
Na  (Upper  Bound) 
Protein  (Lower  Bound) 
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UGH  THE  BREAKFAST -FOOD  PROBLEM 

M  =   5,    N  =   6.      MATRIX  ENTRIES      18 


REINVESTING  AFTER          OTH 

ITERATION. 

0  TRANSFORMATIONS 

WITH        0   ENTRIES 

IDENT        COND        FORM 
UGH                   2               2 

ITER 
2 

NEW  J 
CRISP 

OLD  J        POSIT 

oooooo            3 

OBJECTIVE 
-0. 

DELTA  MIN          DELCT 
-0.820E  02                    k 

0 

THETA 

.585E  00 

DETERMINANT 
O.h-IOE  03 

TR 

ENTRIES 
15 

IDENT        COND        FORM 
UGH                    3               1 

ITER 
2 

NEW  J 
CRISP 

OLD  J        POSIT 

oooooo            3 

OBJECTIVE 
5.268293 

DELTA  MIN          DELCT 
0.                                  0 

0 

THETA 

.585E  00 

DETERMINANT 
O.h-IOE  03 

TR 

ENTRIES 
15 

J                  x(j) 

I 

Y(D 

P(3 

:) 

oooooo          -5.268293 

000000                0 . 
CRISP                    0.585366 
VAR.5                   0.031707 
CRACK                   0. 36585^ 

1 
2 

3 

k 

5 

-0.009756 
1 . OOOOOO 

0.012195 

0.0002h-h- 
-O.OOU878 

1 

0 

-0 

0 

-1 

. OOOOOO 

.009756 

. 268293 

MAX  ERROR   ON  ROW      3, -0. 238U2E-05 .      SUM,      0.2h-1h-9E-05 
MAX  ERROR   ON  COL      5,    O.59605E-O7.      SUM,      O.89H-O7E-O7 
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Example  II 

Suppose  we  had  a  problem  with  3  objective  functions  and  would  like  to 

see  what  the  starting  basis  for  the  problem  at  the  end  of  Phase  I  is,  want 

Short  Output  at  each  iteration  and  want  the  solution  and  its  5.'s.  Assume  we 

J 
are  interested  in  having  the  transformed  matrix  printed  out  when  we  have  no 

feasible  solution  or  infinite  solution. 

Our  deck  would  be  as  follows : 

$      LPG1 

12 

01 

100    1    k  k        50    0-1 

02 

1.0E-05   1.0E-05   -l.OE-Olj-   1.0E-01   0.0E00   01.0E-09   1.0E-02 
03 

11^552 
ok 

TITLE  CARD 

DATA  PACKAGE 
06 
16 
07 
09 

Control  card  12  clears  the  data  region.   01  causes  our  special  parameters  to  be 
read  in.  Thus  we  will  have  reinversion  every  100  iterations,  and  we  have  1  Phase  I 
and  k   objective  functions  (3  +  function  which  will  be  constructed  by  LPG1  from 
artificial  variables  and  placed  in  blank  row  h) .      The  first  function  to  be 
minimized  will  be  on  row  k.      Our  errors  will  be  calculated  every  50  iterations 
and  -1  allows  us  unlimited  iterations  before  the  reading  of  the  next  control 
card.   With  02  we  have  our  special  floating  point  parameters  read  in.   Card  03 
sets  up  special  output.   We  get  Short  Output  each  iteration,  Short  Output  at 
end  of  Phase  I,  Short,  Long  and  Horizontal  Output  at  end  of  Phase  II,  and 
Short,  Matrix,  and  Horizontal  for  conditions  k   and  5.   The  2  punched  in  Column  6 
of  the  card  following  the  03  control  card  will  give  us  Short  and  Long  Output 
when  control  card  l6  is  read.   Card  0^-  causes  reading  in  of  data  and  card  06 
starts  Phase  I.   When  Phase  I  is  completed,  card  l6  is  read  and  the  starting 
basis  at  the  end  of  Phase  I  is  outputted.   Card  07  starts  Phase  II  and  09 
terminates  the  problem.   Note  again  that  use  of  control  card  12  instead  of  09 
would  allow  us  to  run  another  problem  without  reloading  the  program.   The 
last  problem  in  the  sequence  would  end  with  control  card  09. 
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3. 3 •^•5»6.   LPGl  and  LP-90  Differences 

A  few  differences  between  LP-90  and  LPGl  are: 

1)  Matrix  elements  are  punched  with  a  different  format. 

2)  Option  of  using  row  name  instead  of  a  row  number  is  not  available 

3)  If  slack  vectors  are  needed,  they  must  be  inserted  by  user.   In 
LP-90,  for  example,  a  row  with  +1ABCDE  will  automatically  create 
a  positive  slack  vector. 

h)      In  LP-90  any  card  with  a  row  name  not  specified  in  the  list  of 
row  name  cards  will  be  ignored.   In  LPGl  all  rows  will  be  used. 

5)  In  LPGl,  the  first  objective  function  to  be  minimized  will  be 
the  one  directly  above  the  blank  row.   The  second  function  to  be 
minimized  will  be  above  this,  etc.   In  LP-90  proper  use  of 
agendum  cards  allows  the  functions  to  be  minimized  in  any  order. 

6)  In  converting  data  cards  from  LP-90  to  LPGl  remember  that  if  a 
SCALE, -1.  is  used  as  an  agendum  card,  the  effect  is  to  multiply 
the  objective  function  by  -1.   Since  the  SCALE  option  is  not 
available  in  LPGl,  the  cards  must  be  punched  with  the  sign  of 
the  coefficients  of  the  objective  function  (prices)  changed. 

7)  The  control  word  FIRSTS  used  in  LPGl  differs  from  the  control 
word  FIRST  B  used  in  LP-90, 
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3  A.  Summary  of  Available  Publications  Pertaining  to  PORTHOS  and  Its  Parts 

The  Department  of  Computer  Science  has  published  several  documents 
describing  the  software  facilities  available  to  the  user  at  the  University 
of  Illinois.   In  addition,  manufacturers'  publications  are  also  available. 
A  summary  list  of  available  user's  manuals  appear  below;  those  locally -written 
items  are  marked  by  (DCS). 

All  the  listed  items  except  those  marked  by  an  asterisk,  *,  are 
available  from  the  librarian,  Room  165,  ERL,  as  are  individual  publications 
concerning  the  library  subroutines  abstracted  in  section  5. 


709^ 


PORTHOS 


FORTRAN  II 


SCATRE 


SCAT 


ALGOL -60 


"IBM  7090  Principles  of  Operation",  IBM  Publication  A22-6703-1 

"The  PORTHOS  Executive  System  for  the  IBM  709^,  User's  Manual"  (DCS) 

"IBM  7090/709^  Programming  Systems,  FORTRAN  II  Programming", 
IBM  publication  C28-605U-U 

"SCATRE,  University  of  Illinois  SCAT -Compatible  Assembler, 

Translator,  Relocatable  for  the  IBM  7090",  W.  A.  Wulf, 

Library  Routine  L1-U0I-SCRE-19-BX  (DCS) 

"SCAT,  SHARE-Compiler-Assembler-Translator,  Symbolic  Assembly 
Program  for  the  IBM  7090",  Library  Routine  L1-U0I-SSA1-1-BX    (DCS) 

"User's  Manual  for  the  ALCOR -University  of  Illinois  ALGOL-60 
Translator",  E.  L.  Murphree,  Jr.  (DCS) 

"Structure  and  Use  of  ALGOL-60",  H.  Bottenbruck 
(Reprints  available  in  Room  l6k   ERL) 
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MAD 

"A  User's  Reference  Manual  for  the  Michigan  Algorithm  Decoder 

(MAD)  for  the  IBM  709O",  R.  and  J.  Flenner, 

Library  Routine  L2-U0I-MAD1-2-BX  (DCS) 

*"A  Computer  Primer  for  the  MAD  Language",  E.  I.  Organick 

*"The  Language  of  Compilers",  B.  A.  Galler,  McGraw-Hill 
Book  Company,  Inc.,  New  York,  1962 


All  the  applicable  user's  documentation  is  kept  current  by  the 
distribution  of  replacement  sheets  for  the  manuals  produced  by  the  Department 
and  by  addenda  to  the  others.   These  replacement  sheets  are  distributed  as  a 
part  of  the  Informations  Bulletins,  which  also  contain  information  of  a  more 
ephemeral  nature,  such  as  announcements  of  holiday  schedules,  planned  changes 
to  PORTHOS,  etc.   The  Bulletins  are  mailed  to  every  person  on  the  Department 
of  Computer  Science  mailing  list.   Additions  to  the  subroutine  library  are 
documented  in  a  standard  form  (see  section  5)  and  the  documentation  mailed 
to  those  on  the  mailing  list.   Any  user  may  have  his  name  placed  on  the 
mailing  list  by  request  to  the  Librarian,  Room  165,  ERL. 
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4.2.2.   Preparing  the  Job 

U.2.2.1.   The  Problem  Run  Card 

Each  job  which  is  to  be  run  under  PORTHOS  system  control  must  include 
as  the  first  card  a  card  of  very  special  format  -  the  Problem  Run  (or  identification 
or  ID)  card.   This  card  accompanies  the  job  through  the  1401  where  the  job  is  put 
on  magnetic  tape,  in  preparation  for  processing  by  the  7°9^   It  is  very 
important  for  the  Problem  Run  card  to  be  correctly  punched.   Certain  programs 
within  the  system  (the  Monitor)  scan  the  card  image  prior  to  processing  and, 
if  inconsistencies  are  detected,  reject  the  job;  appropriate  error  messages 
are  output  for  the  offending  job. 

For  ease  in  "batching"  jobs  of  similar  length,  several  categories  have 
been  established.   It  is  important  to  the  user  that  he  request  that  his  job  be 
placed  within  the  proper  category;  it  is  to  his  advantage  to  get  the  lowest  numbered 
category  possible  for  his  job,  since,  generally  speaking,  the  lower  the  category 
number,  the  shorter  the  turn-around  time.   Categories  are  discussed  in  detail  in 
section  4.2.3* 

Aside  from  categories,  which  are  based  primarily  on  amount  of  computer 
time  required,  there  is  a  broader  breakdown  of  jobs:   those  which  involve  a 
translation,  e.g.,  programs  written  and  submitted  in  FASTRAN  or  SCATRE,  and 
those  which  do  not.  e.g.,  all  input  is  in  binary  form  (except  possibly  data). 
These  classifications  are  important  to  the  user  because  certain  restrictions 
prevail  if  a  translation  is  involved.   Such  a  job  is  termed  a  "codecheck" 
and  the  following  limitations  must  be  observed  on  the  ID  cards: 

a)  Execution  time  estimate  must  not  exceed  003  minutes. 

b)  Execution  page  output  estimate  must  not  exceed  0030. 

An  ID  card  is  shown  below.   The  information  punched  into  each  ID 
card  must  conform  strictly  to  the  schedule  shown  in  Table  4.1a 
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Figure  k.l. 
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Table  4.1. 
Problem  Run  (ID)  Card  Format 


Cols.  Contents 


1  Must  be  blank 

2-6  Problem  Specification  Number 

7-2^4-  Name  of  User 

25  "C"  (for  codecheck)  or  "P"  (for  production)* 

26-35  Not  used 

36-38  Total  Run  Time  (must  be  punched).   Column  36  contains  the  number 

of  hour s ,    column  37  and  38  contain  the  number  of  minutes. T 
39  Not  used 

40-42  Execution  run  time  estimate  ** 

Column  40  contains  the  number  of  hours,  columns  4l  and  42 
contain  the  number  of  minutes. f 
43-44  Must  be  blank 

45-48  Estimate  of  page  output  at  execution  time* 

49-50  Must  be  blank 

51-5*+  Estimate  of  punched  card  output  at  execution  time* 

55-60  Department,  punched  left-justified  as  it  appeared  on 

Problem  Specification  form  (see  Appendix  4). 
6I-63  Course  number  (if  any) 

64-65  Section  number  (if  any) 

66-67  Problem  number  (if  any) 

68-80  Not  used 

*  If  "C",  columns  40-42  cannot  exceed  003;  columns  45-48  cannot  exceed  0030. 
If  "P",  no  translations  are  allowed. 

**  These  fields  must  be  entirely  punched. 

I  If  an  asterisk  "*"  appears  in  column  36  and/or  column  40,  the  times  given  in 
columns  37-38  and/ or  41-4-2  are  considered  to  be  in  seconds. 
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Users  should  give  close  attention  to  the  information  they  keypunch  on 
their  ID  cards.   THIS  INFORMATION  WILL  BE  CHECKED  IN  EACH  JOB  AS  SOON  AS  THE 
MONITOR  ENCOUNTERS  THE  ID  CARD,  PRIOR  TO  ANY  PROCESSING  OF  THE  JOB  PROPER.   All 
jobs  are  to  remain  subject  to  category  definitions  previously  posted. 

1)  Column  25,  C  or  P 

a.  A  "C"  punched  in  column  25  declares  the  job  to  be 
a  "codecheck"  job.   This  means: 

1.  Translation  (FASTRAN,  FORTRAN  IBM,  ALG0L,  MAD,  SCATRE) 
will  be  permitted; 

2.  Execution  time  estimate  (cols.  ^-0-^2)  may  not 
exceed  003,  i.e.,  0  hrs»  and  03  minutes; 

3.  Estimate  of  page  output  at  execution  time  (cols,  k^-kQ) 
may  not  exceed  0030  pages. 

b.  A  "P"  punched  in  column  25  declares  the  job  to  be  a 
"production"  job.   Translation  will  not  be  permitted  and  the 
job  will  be  terminated  if  translations  are  encountered. 

2)  Total  time  (cols.  36-38)  will  be  used  for  timing  the 
job.   The  3-column  field  may  reflect  hours  (col.  36)  and 
minutes  (cols.  37  and  38)  or  seconds  (*  in  col.  36, 
number  of  desired  seconds  in  cols.  37  and  38).   The 
Monitor  will  terminate  the  job  before  commencing  a  trans- 
lation or  loading  if  there  is  less  than  6  seconds  of 
remaining  total  time  in  the  job.   This  field  must  be 
punched;  it  may  not  be  entirely  blank. 

3)  Execution  time  (cols.  40-^-2)  may  be  keypunched  as  hours 
(col.  ko)   and  minutes  (cols.  Ul  and  k2 )  or_  seconds  (* 

in  col.  kO,    number  of  desired  seconds  in  cols.  4l  and  42). 
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The  amount  of  execution  time  permitted  a  job  will  be  the 
estimated  execution  time  or  the  remaining  total  time, 
whichever  is  less.   (See  the  description  of  the  Missing 
Subroutines  procedure,  section  3-2.4.13.  for  further 
execution  time  definitions).   The  time  required  to  load 
the  job's  program  is  not  treated  as  part  of  the  execution 
time.   This  field  must  be  punched;  it  may  not  be  entirely 
blank. 

h)  Execution  pages  output  (cols.  k^-h6)  no  longer  includes 
the  printed  output  generated  by  the  Loader.  This  field 
must  be  punched;  it  may  not  be  entirely  blank. 

5)  Execution  punched  card  output  (cols.  51-5^)  must  be 
punched;  it  may  not  be  entirely  blank. 

6)  The  name  of  the  user  submitting  the  job  (cols.  7-24) 
must  appear  exactly  as  it  appeared  on  the  Problem 
Specification  form,  including  all  spacing  and  punctuation. 
(This  is  not  true,  of  course,  for  class  problems). 

7)  The  total  time  estimated  for  the  job  (cols.  36-38)  will 
be  compared  with  the  amount  of  remaining  time  for  the 
Problem  Specification  number.   If  the  remaining  time 

is  not  greater  or  equal  to  the  total  time  on  the  ID 
card,  the  job  will  not  be  run. 

The  last  page  of  each  job's  output  will  state  the  amount  of 
remaining  time  for  the  Problem  Specification  number,  both  hourly  time  and 
monthly  time. 
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Since  the  ILLIAC  II  computing  system  strives  for  compatibility  with 
the  PORTHOS  system,  the  same  format  is  used  for  the  ID  card.   The  user  has  the 
added  facility  and  convenience  of  specifying  to  which  computer  the  job  will 
be  directed.   This  is  done  on  the  basis  of  a  color  striping  code  on  the  ID 
card. 

Blue  center  stripe   -  To  be  run  on  ILLIAC  II  only 

Red  center  stripe   -  To  be  run  on  IBM  709^-  only 

Plain  ID  card       -  Can  be  run  on  either  machine  according 

to  availability  schedule 

A  supply  of  these  various  ID  cards  is  provided  in  the  keypunch  rooms.   Since 
the  memory  sizes  of  the  two  machines  differ  and  since  the  two  implementations 
of  the  FORTRAN  language  are  slightly  different,  it  is  the  user's  responsibility 
to  guarantee  that  the  decks  supplied  with  these  ID  cards  are  compatible  with 
the  machine  or  machines  on  which  they  have  been  directed  to  be  run. 

4.2.2.2.   The  Comment   Cards -When  Required 

This  class  of  cards  forms  an  important  part  of  the  executive  system, 
and  is  provided  to  enable  the  user  to  send  messages  concerning  the  operation  of 
his  program  to  the  computer  operator  via  the  on-line  printer.   Irrelevant 
comments  only  waste  valuable  computer  time  and,  of  course,  should  be  avoided. 

These  cards  are  identified  by  the  $  sign  in  both  columns  1  and  2; 
hence  they  are  commonly  called  "double  dollar  comment  cards  .-"  Except  for 
the  $$  in  columns  1  and  2,  there  is  no  restriction  on  what  symbols  can 
appear  on  the  $$  comment  cards;  the  string  of  symbols  cannot,  however,  extend 
past  column  72. 

The  $$  comment  card(s)  must  immediately  follow  the  ID  card. 

For  the  special  case  where  the  user  has  received  permission  on  his 
Problem  Specification  to  have  reserved  tapes  mounted  on  the  709^  during  the 
execution  of  his  program,  a  special  $$  comment  card  form  has  been  devised. 
Adherence  to  the  suggested  format  will  accomplish  the  purpose  with  a 
minimum  of  inefficiency.   This  particular  $$  control  card  is  called  a 
SAVEM0OTT  card,  and  it  should  appear  immediately  after  the  Problem  Run  card. 
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The  card  format  is 

Col: 

12 

8     16 

n 

SAVEMOUNT 

72 

variable  field 

where  the  variable  field  contains  three  parameters  for  each  tape  to  be  mounted, 
the  parameters  being  separated  by  commas;   The  first  parameter  is  a  6-character 
tape  label  number  (the  label  number  of  the  tape  assigned  to  the  user)  of  which 
the  first  character  will  be  D,  L  or  0.   The  second  parameter  will  be  a  logical 
tape  number,  normally  2,  3>  4,  9  or  10*   The  third  parameter  is  the  word  "protected" 
or  "unprotected"  depending  on  whether  the  tape  is  to  be  file  protected  or  not. 
(NO  SAVEMOUNT  JOB  WILL  BE  RUN  IF  THIS  THIRD  PARAMETER  DOES  NOT  APPEAR.')  Any 
number  of  $$  SAVEM0UNT  cards  may  be  included.   Following  these  should  be  a  card 
containing 

Col:    1     2 

$     HALT 

This  card  will  cause  the  7094  to  stop,  allowing  the  operator  time 
to  mount  the  proper  tapes. 
Example : 

12        3^567 
cols:   123^567890123^5678901234567890123^567890123)4567890123^567890123^56789012 

$$  SAVEM0UNT  L20021,9,  PROTECTED 
$$  SAVEM0UNT  L20047,2,  PR0TECTED 
$$     SAVEM0UNT  040001,4,  UNPROTECTED 

$HALT 

The  above  example  is  safe  to  follow  only  if  the  job  does  not  include 

translation  (the  job  contains  binary  decks  only)  and  the  tape  used  is  not  logical 

tape  3j>  nor  is  the  job  a  Ping-Pong  job  which  usually  uses  logical  tape  2,  no^  is 

the  job  a  Split-Core  job  which  uses  logical  tape  k. 

If  translation  is  to  be  performed,  then  the 

$HALT 

card  should  be  omitted;  the  user's  program  should  contain  a  stop, i.e., 

PAUSE  NO.n  -  MAD  (n  =  unsigned  octal  number  up  to  5  digits) 

HTR        -  SCATRE 

PAUSE  n    -  FASTRAN  (n  as  above)  or 
-  F0RTRAN  (n  as  above) 
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following  an  on-line  comment  instructing  the  operator  to  mount  the  tape,  which 
will  he  done  before  the  user's  program  accesses  the  unit  on  which  the  tape 
is  to  be  mounted. 

Decks  containing  the  $$  SAVEM0UNT  comment  card  must  also  include  a 
$  REM0VE  TAPES  control  card  in  the  first  group  of  $  control  cards  (see  section 

U.2.2.3.10o )• 

Jobs  using  the  following  special  features  of  the  PORTHOS  System  should 
contain  $$  comment  cards  similar  to  those  described  below  for  each  feature  required. 
Omission  of  such  $$  comment  cards  by  the  user  could  cause  computer  time  to  be 
charged  to  the  user  under  the  circumstances  described  below.   Time  charges  due 
to  this  omission  are  considered  the  responsibility  of  the  user. 


1.   CRT 

A  job  using  the  CRT  should  have  a  $$  comment  card  stating  the  number 
of  CRT  film  frames  to  be  exposed:   for  example, 

$$  THIS  IS  A  CRT  PROBLEM  USING  XXXX  FRAMES 


2.   DISK 

A  job  requiring  the  DISK  should  have  a 
it  uses  the  disk  file:   for  example, 

$$   THIS    IS  A  DISK   PROBLEM 


comment  card  stating  that 


3.   COPIES 
If  the  user  has  received  special  one-shot  permission  for  COPIES  from 
the  consultants  or  has  been  granted  COPIES  permission  on  his  Problem  Specification 
form,  and  the  job  contains  a  $  COPIES  (n)  control  card,  the  $$  comment  card  should 
state  the  number  of  copies  to  be  printed:   for  example, 

$$  THIS  JOB  WILL  HAVE  XX  COPIES  OF  OUTPUT 
NO  "$  HALT"  CONTROL  CARD  SHOULD  BE  INCLUDED  WITH  THE  THREE  $$  COMMENT  CARDS  DESCRIBED 
ABOVE  IF  THEY  ARE  THE  ONLY  ONES  IN  THE  JOB. 

h.      TAPE  UNIT  10 
A  job  using  logical  unit  10  should  have  a  $$  comment  card  stating: 
$$  THIS  JOB  REQUIRES  A  UTILITY  TAPE  ON  UNIT  10 
(If  a  SAVEMOUNT  is  to  be  placed  on  10,  this  $$  comment  card  is  not  needed. 
However,  a  $$  SAVEMOUNT  comment  card  and  $  REMOVE  TAPES  control  card  are 
required  in  this  case). 
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The  above  $$  comment  cards  are  a  user  protection.   Should  the  CRT  or 
DISK  be  inoperative,  jobs  requiring  these  features  will  be  set  aside  and  run 
once  the  equipment  becomes  operative.   If  the  $$  comment  cards  do  not  accompany 
the  job,  and  the  CRT  or  DISK  is  inoperative,  the  user  will  be  charged  for  any- 
time utilized  in  his  job. 

If  a  CRT  job  requires  a  large  number  of  frames,  the  $$  comment  card 
will  alert  the  operator  to  this  fact.  Time  can  thus  be  saved  for  the  user  if 
this  information  is  available. 

The  $$  COPIES  comment  card  allows  the  operational  area  to  have  more 
control  over  the  processing  of  this  job.   This  advance  knowledge  can  result  in 
a  saving  of  turn-around  time  for  the  user. 

Tape  unit  10  does  not  always  have  a  utility  tape  mounted.   This  unit 
is  available  to  the  user.   If  no  $$  comment  card  accompanies  the  job  and  the 
operator  is  required  to  mount  a  utility  tape  after  the  job  begins,  this  time  is 
charged  to  the  user. 

4.2.2-3.   The  Control  Cards 
4.2.2.3.1.   General 

The  heart  of  the  P0RTH0S  system  is  a  set  of  control  cards  which  inform 
the  system  what  action  must  be  taken  on  the  cards  which  follow,  normally  the 
input  cards  for  the  SCATRE  assembler  or  one  of  the  compilers,  or  even  a  program 
in  binary  form.   The  control  cards  allow  a  limited  amount  of  flexibility  in  the 
action  taken;  for  example,  listing  of  compiler-generated  object  programs  can  be 
obtained  if  the  translation  was  successful,  but  not  if  the  translation  was 
unsuccessful,  if  this  arrangement  is  desired.   Control  instructions  fall  into 
several  categories,  which  are  discussed  below.   Several  control  instructions 
may  appear  on  the  same  control  card,  provided  the  instructions  could  normally 
be  grouped  together  but  with  each  on  a  separate  control  card.   The  discussions 
below  of  the  various  classes  of  control  instructions  clarify  the  meaning  of 
"normal  grouping."  The  string  of  instructions  may  not  extend  past  column  6k, 
for  reasons  which  are  explained  in  the  following  section. 

All  the  control  cards  are  characterized  by  the  $  sign  in  column  1 
and  no  $  sign  in  column  2,  and  for  this  reason  are  most  often  referred  to  as 
"$  control  cards." 

Table  k.2.    and  Appendix  9  are  summaries  of  the  meanings  of  the  $ 
control  cards. 
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4.2.2. 3*2.   Identification  of  Binary  Cards 

All  binary  cards  generated  by  translators  within  the  system  will 
contain  the  Problem  Specification  number  obtained  from  the  ID  card  in 
columns  73-77  and  a  sequence  number  in  columns  78-80.   This  standard  binary 
ID  may  be  changed  in  one  of  the  following  ways. 

If  binary  cards  are  a  product  of  a  translation,  it  may  be  desirable 
for  the  user  to  identify  them  in  some  way.   This  is  facilitated  by  the  use  of 
columns  65-72  of  control  cards,  which  may  contain  any  BCD  characters,  at 
least,  the  last  three  of  which  (columns  70-72)  should  be  numeric;  this 
information  will  appear  in  the  identification  columns  of  the  binary  cards 
produced.   Each  such  identification  supersedes  any  earlier  one.   Thus,  binary 
decks  would  then  contain  in  columns  73~77  the  characters  which  appeared  in 
columns  65-69  of  the  control  card,  and  columns  "jd-QO   of  the  binary  deck  would 
contain  a  sequence  number,  starting  with  the  digits  which  appeared  in  columns 
70-72  of  the  control  card. 

In  addition,  in  a  SCATRE  program,  the  identification  can  be  altered 
within  the  program  by  the  use  of  the  SCATRE  pseudo-operation  NEWID 

operation  variable  field 

NEWID  XXXXXNNN 

where  the  XXXXX  represents  a  5-character  new  identification  field  and  the 
'NNN  represents  a  3-digit  numeric  field.   The  SCATRE  assembler,  on  encountering 
such  an  instruction,  replaces  the  current  object  program  binary  deck  identifi- 
cation by  the  5  characters  XXXXX.   On  the  binary  cards  generated  from  the 
cards  following  the  NEWID  pseudo-operation,  the  sequence  number  begins 
with  NNN  and  is  incremented  by  one  for  each  binary  card  produced.   Any 
automatically  produced  program  card  will  not  be  affected  by  the  NEWID  pseudo-op. 

For  example,  suppose  that  the  following  SCATRE  program  is  assembled 
and  a  binary  object  deck  is  produced. 
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Col.  1 

$SCATRE 

$G0 

$ PUNCH  OBJECT 

SCATRE 

program 
part  I 

NEWID  LOGIC250 

SCATRE 

program 
part  II 

$DATA 

data 
cards 


65 


72 


] 


NEW117 
THING020 


By  the  rules  stated  above,  the  $SCATRE  card  causes  no  binary  deck 
identification  field  to  be  set  up;  the  $G0  card  does,  however,  cause  the 
identification  field  NEW117  to  be  set  up.   The  $PUNCH  0BJECT  card  causes 
the  NEW117   identification  field  to  be  completely  replaced  by  THING020.   The 
binary  cards  generated  from  the  following  SCATRE  program,  part  I,  bear  the 
characters  THING  in  columns  73-77  and  each  card  is  numbered  sequentially  in 
columns  iQ-QO,    beginning  with  020.   At  this  point,  the  SCATRE  card  bearing 
the  pseudo-operation 

NEWID  L0GIC25O 

appears.  From  this  point  on,  each  binary  card  will  have  L0GIC  in  columns 
13-11}  and  will  be  numbered,  sequentially  in  columns  iQ-QO,  starting  with 
250. 

Of  course,  the  NEWID  card  has  this  effect  only  if  the  object  deck 
is  requested.   In  any  event,  the  NEWID  card  image  is  not  printed  in  the  listing 
of  the  program.   (See  the  SCATRE  manual  for  a  detailed  description  of  the 
NEWID  pseudo-operation). 
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4.2.2. 3»3-   Translator  Selection 

There  are  currently  five  translating  programs  which  may  be  called 
by  $  control  cards:  one  relocatable  assembler,  SCATRE;  and  four  algebraic 
compilers,  MAD,  FASTRAN,  FORTRAN,  and  ALG0L.   The  control  instructions 
corresponding  to  each  are 

$  SCATRE 

$  MAD 

$  FASTRAN 

$  F0RIRAN  IBM 

$  ALG0L 

Each  such  instruction  causes  the  Monitor  program  to  call  from  the  master 
tapes  into  core  the  proper  translating  program  and  to  transfer  control  to 
it.   The  translating  program  then  proceeds  to  read  from  the  input  tape  the 
source  program  in  the  appropriate  language;  i.e.,  SCATRE,  MAD,  F0RTRAN,  or 
ALG0L,  depending  upon  which  $  control  instruction  was  encountered.   Note 
carefully  here  that  these  control  instructions  are  mutually  exclusive;  that 
is,  it  would  be  senseless  to  place  two  of  the  instructions  together,  either 
on  separate  cards  or  on  the  same  card,  as 

$  MAD,  ALG0L 

for  this  implies  that  both  the  MAD  compiler  and  the  ALG0L  compiler  should  be 
called  to  process  the  following  program,  and  this  is  not  possible.   This  is 
not  meant  to  imply,  of  course,  that  more  than  one  such  control  instruction 
cannot  be  used  in  a  single  job.   On  the  contrary,  this  is  a  very  powerful 
and  useful  feature  of  the  control  instruction  scheme.   For  instance,  it  makes 
perfectly  good  sense  to  write  a  program  in  F0RTRAN  and  subroutines  for  it 
in  SCATRE.   In  such  a  case,  a  $  FASTRAN  card  will  appear  just  before  the 
F0RTRAN  statements  and  a  $  SCATRE  card  will  appear  just  before  the  SCATRE 
instructions.   Each  range  of  control  is  unambiguously  defined  in  this  case; 
but  if,  instead, 

$  FASTRAN,  SCATRE 

appeared,  instructions  for  processing  the  job  are  ambiguous. 
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k.2.2.^.k.      Binary  Cards  as  Input 

It  frequently  happens  that  a  part  or  the  whole  of  a  user's  job  will 
be  in  column  binary  form  (see  section  4.2.5.3* )•   In  this  case,  he  has  the 
option  of  notifying  the  system  whether  the  cards  which  follow  are  in  column 
binary  form  or  not.   This  is  done  by  preceding  the  binary  cards  with  a 

$  BINARY 

control  card.   A  thorough  understanding  of  the  action  this  control  instruction 
causes  will  enable  the  user  to  decide  whether  to  use  it  in  a  given  case. 

During  a  normal  translation  of  one  of  the  source  languages  mentioned 
in  section  3*3*  •  binary  card  images  are  generated  and  placed  on  the  execution 
tape.   When  a  column  binary  card  (not  a  $  BINARY  control  card)  is  encountered 
by  the  Monitor,  the  image  of  the  card  is  placed  on  the  execution  tape  following 
the  generated  images.   If  after  binary  card  images  are  encountered  and  placed 
on  the  execution  tape,  calls  for  translation  of  a  source  language  (not  binary) 
are  encountered,  the  appropriate  translator's  are  brought  into  core,  translations 
are  made,  and  the  generated  binary  card  images  placed  on  the  execution  tape 
following  the  previously  transferred  binary  card  images.   This  process  continues 
until  the  entire  job  is  in  binary  form  on  the  execution  tape.   When  all  trans- 
lations have  been  completed  and  are  successful,  and  if  execution  of  the  job 
is  indicated,  control  is  passed  to  the  Loader  (see  section  3»2.4.),  which 
proceeds  to  load  the  binary  images  into  the  proper  locations  in  core  from 
the  execution  tape. 

If,  instead  of  a  binary  card  image,  a  $  BINARY  card  image  is 
encountered,  then  a  binary  transition  card  (see  section  4.2.2.3*9*)  is 
generated  and  placed  on  the  execution  tape,  and  control  is  passed  to  the 
Loader  as  before,  which  loads  into  core  the  binary  card  images  on  the  execution 
tape.   Then,  when  the  binary  transition  card  is  encountered,  the  Loader  begins 
loading  into  core  from  the  input  tape,  which  contains  the  binary  card  images 
that  followed  the  $  BINARY  control  card. 

After  the  Loader  has  finished  loading  the  binary  card  images  into 
core,  control  passes  to  the  user's  program.   Consequently,  no  further  $ 
control  cards  have  meaning,  with  the  exception  of  a  $  DATA  card,  which 
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immediatelypreced.es  the  user's  data,  if  any  (see  section  4.2.2.3*6. )• 
Consequently,  the  $  BINARY  control  card  can  only  be  present  in  a  user's  job 
if  there  are  no  cards  except  binary  cards  between  the  $  BINARY  control  card 
and  the  end  of  the  program  part  of  the  deck.   Only  the  $  DATA  card  and  the 
actual  data  cards  may  follow  the  binary  cards. 

Note  that  the  major  difference  in  action  with  and  without  the 
$  BINARY  control  card  is  that  without  the  $  BINARY  control  card,  all  the 
binary  card  images  are  transferred  from  the  input  tape  to  the  execution 
tape.   This  takes  a  certain  amount  of  time  to  do,  and  the  user  who  can  group 
all  or  any  of  his  binary  input  cards  right  in  front  of  his  data  (if  any)  can 
avoid  wasting  this  time  by  using  the  $  BINARY  control  card.   If  he  cannot  so 
group  his  binary  input  cards,  then  he  has  no  choice  in  the  matter:   he  cannot 
use  the  $  BINARY  control  card. 

4.2.2.3.5.   Punch  Binary  Cards 

If  the  user  desires  a  binary  deck  of  his  translated  source  program, 
then  he  may  so  indicate  by  placing  a  $  PUNCH  OBJECT  control  card  with  the 
$  control  card  that  calls  for  one  of  the  translators  (MAD,  FASTRAN,  FORTRAN  IBM, 
ALGOL,  or  SCATRE).   Then,  as  each  binary  card  image  is  generated  and  placed  on  the 
execution  tape  (see  section  3-2. 3«  )>  the  same  image  is  placed  on  the  output 
tape,  to  be  punched  for  the  user  by  the  1401. 

Note  that  only  generated  binary  card  images  are  placed  on  the 
output  tape.  Hence,  no  binary  input  cards  will  be  copied  on  the  output 
tape. 

Since  each  main  program  and/or  subprogram  requires  a  $  control 
card  to  call  for  one  of  the  translators  (MAD,  FASTRAN,  F0RTRAN  IBM,  ALGOL,  or 
SCATRE),  a  $  PUNCH  OBJECT  control  card  must  accompany  each  $  control  card 
being  used  if  a  binary  deck  is  desired  for  the  main  program  or  subprogram  being 
translated. 


Date : 

5/1/65 

Section: 

4.2.2. 

Page : 

13 

Change : 

2 

Porthos 

Manual 

4.2.2.3-6.   Data 

When  the  user  desires  execution  of  his  job  and  data  form  a  part 
of  his  output,  a  $  DATA  control  card  must  immediately  precede  his  data 
cards.   If  no  data  exist,  then  this  control  card  is  not  required. 

4.2.2.3.7.   Program  Execution 

One  of  the  features  of  the  PORTHOS  Executive  System  is  the  provision 
for  execution  of  a  job  immediately  after  translation  is  complete.   If  the 
user  desires  execution  -of  his  job,  he  must  place  a  $  G0  control  card  within 
the  first  group  of  $  control  cards.   Since  this  is  an  action  which  involves  the 
entire  job,  not  just  a  part  of  it  (as,  for  example,  the  translation  of  a  subroutine), 
a  $  G0  control  card  anywhere  except  within  the  first  group  of  $  control  cards  has 
no  meaning  and  is  ignored. 

If  the  requirement  that  the  computer  be  halted  exists  in  a  job, 
so  as,  for  example,  to  enable  the  operator  to  mount  or  dismount  tapes,  then 
this  may  be  done  by  placing  a  $  HALT  control  card  as  the  first  $  control  card 
of  the  job.   Note  that  this  option  may  be  used  only  under  severely  restricted 
conditions:   the  $  HALT  control  card  must  be  immediately  preceded  by  a  $$ 
comment  card  (see  section  4.2.2.2.).   The  $$  comment  card  must  instruct  the 
operator  what  action  he  is  to  take,  and  if  no  $$  comment  cards  appear 
immediately  before  the  $  HALT  control  card  (no  card  of  any  kind  may  be  between 
these  cards)  the  request  for  a  halt  is  ignored. 

The  user  is  asked  to  use  the  $  HALT  control  instructions  with 
discretion  and  to  be  explicit  in  his  preceding  instructions  to  the  operator, 
so  that  the  computer  will  be  halted  a  minimum  length  of  time. 

Users  who  have  received  permission  on  the  Problem  Specification 
form  to  obtain  more  than  one  copy  of  their  printed  output  should  include 
a  $  COPIES  (N)  control  card  in  their  decks;  N  is  the  number  of  copies 
of  printed  output  desired  and  must  be  less  than  or  equal  to  the  number  of 
copies  approved  on  the  Problem  Specification  form  which  in  turn  must  be 
less  than  or  equal  to  63 ■   (see  section  4.2.2.2.). 
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The  user  may  have  a  $  COPIES  (N)  control  card  with  any  of  the  other 
$  control  cards  in  his  job  and  he  will  receive  N  copies  of  following  output 
until  another  $  COPIES  (N)  or  the  end  of  the  job  appears. 
For  example : 
The  $  Control  Card  group 

$  FASTRAN,  G0,  PRINT  0BJECT 
$  COPIES  (2) 

would  give  the  user  two  copies  of  all  printed  output  generated  by  FASTRAN  for 
the  source  deck  which  follows.   The  user  could  follow  this  with  a  SCATRE 
language  subroutine  preceded  by  the  $  control  instructions 

$  SCATRE,  PUNCH  0BJECT,  COPIES  (l) 

and  receive  only  one  copy  of  the  SCATRE-generated  print  output.   If,  instead, 
the  SCATRE  subroutine  were  preceded  by  only  the  $  control  instructions 

$  SCATRE,  PUNCH  0BJECT 

the  user  would  also  receive  two  copies  of  the  SCATRE-generated  print  output, 
since  the  $  COPIES  (2)  from  the  FORTRAN  group  would  still  be  in  effect. 

Similarly,  the  user  wanting  extra  copies  of  his  execution-time 
print  output  only  should  omit  the  $  COPIES  (N)  until  the  $  DATA  (or  $  BINARY) 
card;  e.g.,  the  $  control  instructions 

$  FASTRAN,  G0,  PUNCH  0BJECT 
(FORTRAN  Source  Deck) 
$  COPIES  (2) 
$  DATA 

would  given  the  user  only  one  copy  of  his  FORTRAN-generated  output,  but  two 
copies  of  his  execution  results. 

The  Monitor  imposes  the  following  restrictions  on  multiple  copies: 

(a)  An  unsuccessful  assembly  or  an  unsuccessful  translation  will 
cause  the  previous  request  for  more  than  one  copy  to  be  ignored. 

(b)  If  the  user  exists  via  SYSERR  and  obtains  a  dump,  a  previous 
request  for  multiple  copies  will  be  ignored. 
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Example : 

Deck  Setup 

Problem  Run  Card 
$  SCATRE,  G0,  DUMP 
$  C0PIES  (2) 

(SCATRE  Source  Deck) 
$  FASTRAN,  COPIES  (l),  PUNCH  OBJECT 

(FORTRAN  Source  Deck) 
$  C0PIES  (3) 
$  MAD 

(MAD  Source  Deck) 
$  C0PIES  (4) 
$  DATA 

(Data  Deck) 


Number  of  Copies 
of  Print  Output 


2  copies  of  SCATRE  listing 


1  copy  of  FORTRAN  listing  and  map 


3  copies  of  MAD  listing  and  map 


4  copies  of  Loader  map  and 
execution  results 


4.2.2. 3 '8.   Program  Development  Aids 

To  this  category  of  control  instructions  belong 

$  PRINT  0BJECT 
$  DUMP 
$  1/0  DUMP 
$  FULL  DUMP 
$  LIBDUMP 
$  CLEANUP 
$  SUBTRACE 

We  consider  each  in  turn. 

The  $  PRINT  0BJECT  control  instruction  causes  a  compiled  object 
program  to  be  listed  in  symbolic  instruction  form.   This  feature  is  meaningless 
for  a  SCATRE  assembly,  since  the  listing  of  the  SCATRE  source  program  which 
the  user  automatically  gets  i_s  the  symbolic  object  program;  it  is  not  operable 
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for  ALGOL  because  no  symbolic  object  program  is  generated  during  compilation 
of  an  ALGOL  source  program.   It  is  meaningful  for  MAD,  FASTRAN  and  FORTRAN 
compilations  since  each  can  generate  symbolic  object  programs  during  compilation. 
Within  each  job,  the  $  PRINT  OBJECT  control  instruction  must  appear  grouped 
with  the  translator  calls  ($  MAD,  $  FASTRAN  or  $  FORTRAN  IBM)  and  applies  only 
to  the  current  translation.   For  example,  if  a  job  consists  of  two  FORTRAN  source 
programs  separated  by  a  SCATRE  program,  and  the  $  PRINT  OBJECT' control  instruction 
appears  only  with  the  first  $  FASTRAN  control  instruction,  the  object  program 
generated  from  the  second  FORTRAN  source  program  is  not  printed  on  the  output. 
To  get  a  listing  of  it,  a  second  $  PRINT  0T3JECT  control  instruction  grouped 
with  the  second  $  FASTRAN  control  instruction  would  be  necessary. 

The  $  DUMP  control  instruction  causes  a  portion  of  the  contents  of 
core  to  be  written  on  the  output  tape  if  the  program  is  terminated  via  the 
subroutine  SYSERR  (see  Appendix  10).   Under  normal  conditions,  those  locations 
in  core  containing  the  user's  main  program  and  Erasable  storage  (see  section 
3.2.4.1.)  will  be  output.   If  a  Ping- Pong  (or  multiple  core -load)  job  is 
involved,  the  output  will  consist  only  of  the  core  contents  at  the  time  of 
termination. 

Under  some  circumstances,  the  user  may  feel  that  he  needs  a  dump 
of  the  entire  core.   After  he  has  discussed  the  need  with  a  consultant  (see 
section  1.2.1.)  and  has  obtained  a  Special  Permission  Card  apprqpriately 
filled  out  and  signed  by  a  consultant,  he  may  use  a  $  FULL  DUMP  card  with 
his  input  deck.   The  Special  Permission  Card  must  accompany  his  deck  when 
submitted  at  the  Routing  Room.   The  Special  Permission  Card  is  valid  for  only  one 
job;  if  further  full  dumps  are  required,  special  permission  must  be  sought 
for  each.   $  FULL  DUMP,  like  $  DUMP,  is  valid  only  if  termination  is  via 
SYSERR  (see  Appendix  10 ). 

If  the  user  requires  a  dump  of  the  subroutines  called  from  the 
library  tape   in  addition  to  the  dump  he  would  get  from  a  $  DUMP  control  card, 
he  must  use  a  $  LIBDUMP  control  card. 

The  $  LIBDUMP  is  valid  only  if  termination  is  via  SYSERR . 

The  input/output  routines  are  common  to  (and,  therefore,  separate 
from)  all  the  programming  systems  available  through  PORTHOS.   Hence,  if  an 


Date : 

5/1/65 

Section: 

4.2.2o 

Page : 

17 

Change : 

2 

Porthos 

Manual 

word 

word 

word 

word 

word 

word 

word 

#n+l 

#n+2 

#n+3 

#n+k 

#n+5 

#n+6 

#n+7 

error  is  detected  "by  the  I/O  routines  during  input  or  output  of  data  (such  as, 
for  example,  an  irreconcilable  inconsistency  between  a  format  statement  and 
a  corresponding  data  field)  the  user  cannot  expect  execution  to  continue, 
nor  can  he  expect  the  job  to  terminate  via  SYSERR,  even  though  he  has  programmed 
the  main  part  of  his  program  to  do  so.   To  provide  the  needed  linkage,  he  must 
include  both  a  $  l/fi   DUMP  control  card  and  one  of  the  other  dump  control  cards: 

$  DUMP,  $  FULL  DUMP,  or  $  LIBDUMP 

The  user  must  place  any  dump  control  cards  in  the  first  group  of  $  control 
cards  in  the  job.   That  is,  the  dumps  requested  apply  to  the  entire  job,  and  not 
to  only  a  part  of  it . 

Output  of  a  dump  is  invariably  of  the  same  format: 

location     word 
of  word  #n   #n 

All  numbers  are  in  octal  form.   If  an  entire  line  of  8  words  consists  of  words 
all  identical  to  the  last  word  of  the  preceding  line,  and  the  first  word  of 
the  succeeding  line,  the  line  is  not  printed.   A  single  line  of  dots  indicates 
that  a  block  of  such  identical  words  has  been  omitted  from  the  print-out.   In 
the  case  of  absolute  programs,  $  DUMP  dumps  the  region  of  core  from  SYS0RG 
(now  lOOOOo  but  subject  to  change)  to  the  highest  numerical  location  used  by 
the  program.   $  LIBDUMP  dumps  the  region  from  SYS0RG  through  the  user's  programs 
plus  any  tape  library  subroutines  used  and  regions  of  high  core  used  for  data 
storage  by  the  user's  program.   An  absolute  program  will  be  dumped  from  SYS0RG 
to  T77TTq  if  $  LIBDUMP  is  used.   As  in  all  cases,  to  obtain  a  dump  from  one 
of  the  dump  control  cards,  the  program  must  be  terminated  via  SYSERR  or  by 
operator  intervention. 

SYSCUP  is  a  system  execution  coordination  routine  which  is  designed 
to  allow  the  user  to  regain  control  of  the  computer  for  a  limited  period  of 
time  after  his  job  has  been  terminated  via  SYSERR  or  by  operator  intervention, 
in  order  to  permit  his  program  to  make  a  more  graceful  termination,  if  possible, 
If  SYSCUP  is  used,  then  the  control  card  $  CLEAN  UP  must  appear  in  the  first 
group  of  $  control  cards  for  the  job*   The  action  and  use  of  SYSCUP  is 
described  in  section  6.2.9-3« 
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4.2.2. 3 «9«   The  Control  Card  for  Multiple -Core  Jobs 

The  user  who  has  a  job  of  such  magnitude  that  more  than  one  core- 
load  of  instructions  is  necessary  must  mark  the  ends  of  all  the  core-loads 
with  $  BREAK  control  cards.   The  general  form  of  this  control  card  is 

$  BREAK  (n) 

where  n  is  a  logical  tape  number.   The  interested  reader  should  see  section 
4.2.6.,  the  Multiple  Core-Load  Job:   Ping-Pong,  for  a  complete  discussion  of 
this  feature  of  the  executive  system. 

4.2.2.3.10.  The  $  REM0VE  TAPES  Control  Card 

Decks  containing  the  special  $$  SAVEM0UNT  comment  card  (see  section 
4.2.2.2.)  must  also  include  a  $  REMOVE  TAPES  control  card  in  the  first  group 
of  $  control  cards.   This  causes  the  computer  to  halt  at  the  end  of  the  run, 
with  appropriate  on-line  comments  (internally  generated),  to  allow  the  operator 
to  remove  the  reserved  tapes  specified  on  the  $$  SAVEM0UNT  card. 

4.2.2.3.11.  The  $  SUBTRACE  Control  Card 

The  user  who  wishes  to  trace  dynamically  a  program's  internal  calls 
to  subroutines  can  use  the  $  SUBTRACE*  control  card.   In  addition  to  this 
control  card,  the  following  library  routines  must  be  called  within  the 
program: 

CALL  0NTRAC  which  turns  subroutine  tracing  on,  and 

CALL  0FTRAC  which  turns  it  off. 

The  $  SUBTRACE  control  card  initiates  a  special  linkage  which  enables  the 
message 

SUBROUTINE  "Name"  CALLED  FR0M  XXXXX 

to  be  printed  every  time  a  subroutine  is  called*   It  should  be  kept  in  mind 
when  using  this  feature  that  a  number  of  additional  locations  will  be 
required:   a  SUBTRACE  table  is  generated,  located  at  the  end  of  the  user's 
program,  which  occupies  4N  locations,  where  N  is  the  total  number  of  sub- 
routines called  in  the  user's  program.   The  SUBTRACE  routine  itself  requires 
130o  locations. 

*  SCATRE  users  who  use  Transfer  Vectors  to  transmit 
information  to  other  portions  of  their  program 
should  not  use  SUBTRACE. 
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4.2.2.3-12.   $  Control  Card  Summary 


Those  which  are  underlined  below  pertain  to  the  execution  phase, 
and  must  appear,  if  used,  in  the  first  group  of  $  control  cards  in  the  job 
deck. 


FASTRAN 

SCATRE 

MAD 

F0RTRAN  IBM 

ALG0L 

G0 


DATA 
DUMP 
LIBDUMP 
FULL  DUMP 

1/0  DUMP 
PRINT  0BJECT 
PUNCH  0BJECT 
BREAK(N) 


Compile  the  FORTRAN  program  that  follows  on  the  FASTRAN  compiler. 

Assemble  the  SCATRE  program  that  follows. 

Compile  the  MAD  program  that  follows. 

Compile  the  F0RTRAN  program  that  follows  on  the  IBM  F0RTRAN  compiler. 

Compile  the  ALG0L  program  that  follows. 

Execute  the  instructions  compiled,  assembled,  or  read  in 

during  the  preprocessing  of  this  program.   (if  an  error 

occurs  during  the  preprocessing,  no  execution  will  take 

place). 

Defines  the  information  that  follows  this  card  to  be  data. 

This  must  always  precede  the  first  data  card. 

Dump  the   user's   programs   and  Erasable   in  case  of  trouble 

(other  than  input -output  trouble). 

Same  as  DUMP,  but  tape  library  routines  called  by  the  user 

are  dumped  as  well. 

Dump  all  of  core  in  case  of  trouble  (other  than  input -output 

trouble).   (Requires  Special  Permission  approval  received  from 

Consultants  or  on  Problem  Specification  Form). 

Give  dump  as  indicated  even  if  input -output  trouble.   (Must 

be  accompanied  by  DUMP,  FULL  DUMP  or  LIBDUMP). 

Print  the  object  program  that  results  from  the  current  MAD, 

FASTRAN  or  FORTRAN  IBM  translation. 

Punch,  in  column  binary  form,  the  object  program  generated  by 

the  current  $  MM),  $  FASTRAN,  $  FORTRAN  IBM,  $^SCATRE,  or  $  ALGOL. 

Marks  the  end  of  each  core-load  in  a  multiple -core  load  job. 

The  parameter  N  refers  to  a  logical  tape  unit. 


Table  k.2, 


Date : 

5/V65 

Section:. 

4.2.2. 

Page : 

20 

Change : 

2 

Port ho s 

Manual 

BINARY 
C0PIES(N) 

CLEANUP 

REM0VE  TAPES 
HALT 

SSUPAC 

STATMON 
SUBTRACE 


IPL-V 

SN0B0L 

SPS/90 


Indicates  that  all  cards  following  (up  until  a  $  DATA  card) 

are  column  binary. 

Causes  N  copies  of  the  output  following  to  be  printed  until 

either  another  $  C0PIES(N)  card  or  the  end  of  the  job  appears. 

Allows  the  user  to  regain  control  of  the  computer  for  a  short 

time  after  termination  via  SYSERR  or  by  operator  intervention, 

through  the  SYSCUP  subroutine. 

Causes  the  computer  to  halt  at  the  end  of  the  job  for 

removal  of  user's  reserved  tapes. 

Stop  the  computer  to  allow  the  operator  to  take  action 

indicated  on  comments  cards  ($  in  columns  1  and  2).   This  is 

effective  only  if  comments  have  preceded. 

Use  the  Statistical  Services  Unit  package  of  statistical 

programs. 

Use  the  Statistical  Monitor  package  of  statistical  programs. 

Causes  the  user's  program  to  be  linked  by  the  Loader  in  a 

fashion  to  permit  a  message  to  be  printed  out  at  every 

subroutine  call.   (Program  must  contain  and  execute  a 

CALL  0NTRAC  to  turn  tracing  on  and  may  contain  a  CALL  0FTRAC 

to  turn  tracing  off.   Requires  130o  +  4N  storage  locations 

where  N  =  no.  of  subroutines  in  program). 

Interpret  the  following  program  using  the  IPL-V  Interpreter. 

Interpret  the  following  program  using  the  SN0B0L  processor. 

Generate  1^01  SPS  code  using  SPS/90  assembler. 
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4.2.2.4.  Arrangement  of  the  Input  Deck 

The  following  is  a  description  of  the  arrangement  of  the  various  classes 
of  cards  appearing  in  an  input  deck.   Certain  of  the  comments  below  have  been 
made  elsewhere,  and  are  repeated  here  as  reminders  to  the  user. 

(a)  The  first  card  of  the  deck  must  be  the  Problem  Run  Card  (see 
section  4.2.2.1. ) . 

(b)  Following  the  Problem  Run  Card  may  be  special  instruction 
($$  Comment)  cards  (see  section  4.2.2.2.)  used  to  inform  the 
operator  of  any  special  or  unusual  situation  regarding  the 
handling  and/ or  processing  of  the  job.   They  may  not  be 
included  in  the  deck  except  immediately  following  the  Problem 
Run  Card.   These  cards  must  have  a  dollar  sign  ($)  in  both 
column  1  and  column  2.   (Section  4.2.2.2.  details  the  cases  when 
$$  cards  are  required). 

(c)  Next  must  appear  the  $  control  card  or  cards.   These  cards 

have  a  dollar  sign  ($)  punched  in  column  1  only.   The  information 
on  these  cards  informs  the  system  what  action  is  to  be  taken 
with  regard  to  the  subsequent  cards  (see  section  4.2.2.3°  )• 

(d)  Program  decks  follow  the  $  control  cards.   If  there  are  several 
portions  of  the  job,  some  of  which  for  example  are  to  be 
assembled  by  SCATRE,  others  to  be  translated  by  MAD  or  FASTRAN, 
etc.,  then  each  portion  must  be  preceded  by  the  appropriate  $ 
control  cards.   Binary  cards  may  be  inserted  without  a  control 
card  (see  section  4. 2. 2.3*4.).  Note  that  certain  control 
instructions  apply  to  the  execution  phase  of  the  job  rather 
than  to  any  particular  section  of  the  program.   These  include 
among  others,  G0,  DUMP,  LIBDUMP,  and  l/0  DUMP.   Such  control 
cards  must  occur  in  the  first  group  of  $  control  cards.   If 
they  occur  anywhere  else  they  will  be  ignored. 

(e)  Data  cards,  if  any,  occur  last  in  the  job  deck  and  must  be 
preceded  by  a  $  DATA  control  card. 

An.  illustration  of  a  typical  input  deck  appears  as  Appendix  2. 
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^.2.2.5*   Listing  and  Reproducing  Cards  and  Tapes 

Occasionally,  the  user  requires  that  cards  be  reproduced  or  listed, 
or  that  magnetic  tapes  be  copied  or  listed  or  punched  into  cards.  All  these 
activities  are  done  on  the  1^-01  computer,  and  a  special  form  (Figure  ^.3-  ) 
has  been  devised  to  facilitate  them.   All  the  user  need  do  is  indicate  his 
requirements  and  leave  the  form  and  his  input  (cards  or  tape)  at  the  Routing 
Room,  110a  ERL.   His  work  will  be  completed  and  available  there. 

If  the  user  has  a  deck  of  less  than  1000  BCD  (not  binary)  cards, 
and  wishes  to  do  so,  he  may  use  the  519  Card  Reproducer  in  Room  l6l  ERL  to 
reproduce  them.   There  is  also  available  in  that  room  an  Alphabetic  Interpreter, 
but  no  listing  machine  is  available  at  the  Department  of  Computer  Science. 

For  the  reproduction  of  decks,  a  rather  general  standard  1^01  routine, 
RGCP  is  available.   An  abbreviated  writeup  of  this  routine  is  provided  in 
Appendix  12.   If  the  user  wishes  a  deck  to  be  reproduced  using  the  facilities 
in  this  routine,  the  words  "Use  RGCP"  should  be  written  on  the  application 
sheet  and  the  appropriate  control  cards  (as  described  in  Appendix  12)  provided. 
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UNIVERSITY  OF  ILLINOIS 

GRADUATE  COLLEGE 

DEPARTMENT  OF  COMPUTER  SCIENCE 

Date 


Problem  Spec. 
Department 


CARDS 


1.   List 


Number  of  copies 


2«   Reproduce 


Number  of  copies 

Type  of  card  to  use 


SPECIAL  COMMENTS 


Phone 


TAPE 


Copy  tape 


Label  on  reel  of  original 
Label  on  reel  of  new  copy 
BCD B  inary 


Which  files  to  copy  on  tape 
Number  of  files  on  tape 


Density  of  original  tape 

Density  for  new  copy 

Program  to  use 


Print  tape 


Label  on  reel 
BCD 


Which  files  to  print 


Number  of  files  on  tape 
Density 


Program  to  use 
Punch  tape 


Label  on  reel_ 
BCD 


Jmary 


Which  files  to  punch 


Number  of  files  on  tape 
Density 


Cards  to  use 


12/lk/6k 
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Program  to  use_ 
Turn  work  in  to  Room  110a  ERL 

Pick  up  completed  work  in  Room  110a  ERL 
Figure  k.^. 


k.2.2.6.      Use  of  the  Cathode  Ray  Tube  Display  (CRT) 

4.2.2.6.1.  General 

The  IBM  7271  II  Cathode  Ray  Tube  (CRT)  Adapter  is  used  to  attach 
both  the  IBM  7^0  CRT  Recorder  and  the  IBM  78O  CRT  Display  equipment  to  a 
modified  IBM  7607  Data  Channel. 

The  7^0  recorder  and  78O  display  units  serve  to  record  and  display 
graphical  output  from  the  computer  system.   The  7^-0  receives  digital  information 
from  the  computer  under  stored  program  control.   This  information  is  converted 
to  analog  information  in  the  form  of  voltages  that  are  used  to  position  and 
control  the  writing  of  dots  and  lines  on  the  face  of  a  seven-inch  CRT  in  the 
recorder.  A  35^™  camera  records  the  patterns  written  on  the  tube  face. 

The  78O  simultaneously  produces  a  visible  display,  on  a  21-inch  CRT, 
of  the  information  being  written  or  plotted  on  the  seven-inch  CRT  of  the  7^0. 
The  voltages  that  are  used  to  position  and  control  the  780  are  obtained  from 
the  digital-to-analog  converter  in  the  jkO.      The  780>  therefore,  can  operate 
only  when  connected  to  the  7^0. 

4.2.2.6.2.  Operation 

The  CRT  units  are  selected  for  operation  by  execution  of  a  Write 

Select  instruction  with  an  address  portion  of  1030  (WRS -1030),   After  being 

selected,  the  next  Reset  and  Load  Channel  instruction  addressing  the  data  channel 
to  which  the  CRT  is  attached  initiates  data  transfer.   Operation  of  the  CRT  units 
is  then  under  control  of  the  data  channel's  word  counter.   The  units  will  remain 
connected  until  the  word  count  is  equal  to  zero  or  a  Reset  Data  Channel  instruction 
is  executed.   Timing  is  completely  automatic  and  the  average  data  transfer  rate  is 
approximately  667O  words  or  plot  points  per  second. 

Record  and  signal  input-output  commands  have  no  function  or  meaning 
when  applied  to  the  CRT  units. 

Film  frames  are  advanced  by  execution  of  a  Plus  Sense  instruction  whose 
address  portion  contains  1030.   This  instruction  may  be  given  at  any  time  in  the 
program.   If  the  CRT  is  selected,  the  film  will  be  advanced  immediately  following 
the  disconnect  of  the  CRT,  which  will  occur  when  the  word  count  goes  to  zero. 
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If  the  CRT  is  not  selected,  the  film  will  be  advanced  immediately. 

While  the  film  is  "being  advanced,  execution  of  another  film  advance 
instruction  will  be  treated  as  a  NO-OPeration«  The  following  instructions 
will  advance  one  frame;  multiple  frame  advances  should  be  made  by  executing 
the  following  sequence  once  for  each  frame  advance  desired: 

TSX  SYSPSE,4 

TSX  SYSWUB,l4 

TIX  0,,13 

TIX  I0LIST,,O 

TIX  0,,0 

where  location  I0LIST  contains  the  operation  code  I0CT,  with  a  count  field 
of  zero. 

Stacking  of  data  transmission  operations  occurs  in  exactly  the  same 
manner  as  tape  transmission  operations.   In  general,  there  is  no  noticeable 
delay  between  a  CRT  disconnect  (word  count  zero)  and  the  ability  of  the  CRT  to 
accept  another  select  instruction.   This  is  also  true  if  the  film  is  to  be 
advanced  at  the  completion  of  data  transmission,  except  that  data  transmission 
will  be  delayed  until  the  film  has  completed  its  motion. 

Each  data  word  transferred  to  the  ^kO   causes  either  one  dot  or  one 
axis  line  to  be  recorded  by  the  camera  and  displayed  on  the  78O.   The  dot 
position  is  defined  by  x  and  y  coordinate  positions  specified  with  two  ten-bit 
numbers.   The  location  of  these  numbers  within  the  data  word  is  shown  below. 


Axis  Generation 


Dot 

Inten- 

sity 


1 


Not  Used 


X  Coordinate 


Y 


Not  Used 


Y  Coordinate 


[_ 

awiii 

S®B»2  '.  ,v^ 

2 


3 


7  8 


17  18 


25  26 


35 


The  first  three  bits  in  the  data  word  are  used  for  control  information.   A  bit 
in  the  S  position  causes  an  intensified  dot  to  be  displayed  and/or  recorded 
depending  on  the  intensity  adjustments  of  the  individual  units.   This  gives  the 
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programmer  an  easy  method  for  distinguishing  some  points  (every  fifth  point; 
for  example)  from  others.   A  bit  in  either  the  1  or  2  positions  will  initiate  an 

axis  sweep  starting  at  the  specified  x,  y  position  and  sweeping  to  the  right 

or  upward  direction  respectively.   A  bit  in  both  1  and  2  positions  causes  a 

diagonal  line  to  be  traced  from  the  selected  point  to  the  upper  right  edge  of 

the  raster. 

The  instruction  Store  Prefix  (STP  Y)  may  be  used  to  store  the  contents 
of  positions  P,  1  and  2  of  the  accumulator  into  positions  S,  1  and  2  of  a  word 
that  contains  the  coordinates  of  a  point  to  be  displayed  (intensity  and  axis 
positions). 

The  instruction  Store  Decrement  (STD  Y)  may  be  used  to  replace  the  x 
coordinate  in  register  Y  by  the  x  coordinate  in  the  accumulator.   The  Store 
Address  instruction  (STA  Y)  may  be  used  in  a  like  manner  to  replace  the  y 
coordinate  in  register  Y  by  the  y  coordinate  in  the  accumulator. 


4.2.2.6.3.   Coordinate  Display 

Ten  binary  digits  representing  the  horizontal  coordinate  (abscissa) 
of  a  point  are  stored  in  a  word  of  core  storage  along  with  ten  binary  digits 
representing  the  vertical  coordinate  (ordinate)  of  that  point.   The  plotting  area 
is  therefore  divided  into  2    (1024)  increments  in  both  the  x  and  y  direction. 
Each  pair  of  digital  coordinates  is  converted  to  proportional  voltages  which 
position  the  electron  beam  at  the  proper  point  on  the  cathode  ray  tubes.   The  x 
coordinate  occupies  bit  positions  8-17;   the  y  coordinate,  bit  positions  26-35* 

The  instructions  shown  below  would  display  the  point  (512,512)  on 
both  CRT's  at  the  center  of  the  area  covered  by  the  raster. 

Bit  Positions 


3123^567 


V 


17     18      19     20     21     22     23     24     25     26 


X 


Example : 

WRS  536    (Channel  A) 
RCHA  B  +1 


E 


+001000001000   (octal  integer) 
I0CD  B,  0,  1 
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The  coordinates  of  the  point  may  be  seen  more  clearly  by  inspecting  the  binary 
equivalent  of  the  octal  integer  in  storage  location  B.   Bits  8-17  (x  coordinate) 
and  26-35  (y  coordinate)  are  treated  as  unsigned  numbers.   The  (0,  0)  location 
is  thus  in  the  lower  left  corner  of  the  plotting  area. 

k.2.2.6.k.      Recording  Unit 

The  seven-inch  CRT  used  in  the  7^0  employs  electrostatic  deflection 
and  focusing.  The  phosphor  is  a  Pll  type  giving  a  blue  phosphorescence  and  a 
persistency  of  only  a  few  microseconds.  The  raster  size  of  the  tube  is  3»  3^6 
inches  x  3-366  inches.  A  three-inch  square  matrix,  centered  on  the  raster, 
will  drift  no  more  than  +  .0045  inches  in  six  minutes  or  +  .020  inches  within 
two  weeks  after  adjustment. 

Any  point  displayed  in  a  centrally  located  area,  the  sides  of  which  are 
3.4  (+  .000,  -.03^+)  inches,  must  be  located  within  .015  inches  of  the  position 
occupied  in  a  truly  square  and  linear  matrix. 

The  half-light  mean  diameter  of  a  focused  normal  intensity  spot  in  a 
centrally  located  square  area,  the  sides  of  which  are  I.687  inches,  does  not 
exceed  .015  inches.   The  half-light  mean  diameter  of  any  other  spot,  outside  this 
area  but  within  the  3-4  square  inch  area,  does  not  exceed  .022  inches.   This 
spot  defocusing  applies  proportionately  to  an  axis  line. 

4.2.2.6.5.   Plotting 

In  order  to  plot  successive  distinct  points,  spot  size  must  be  taken 
into  consideration.   This  size  is  such  that  any  two  normal  intensity  spots  whose 
centers  are  displayed  four  increments  apart  will  appear  as  adjacent  resolved 
spots.   Thus,  even  though  the  raster  size  is  1024  x  1024,  only  256  resolved 
spots  may  be  used  on  a  vertical  or  horizontal  line.   A  very  smooth  line  may  be 
plotted  by  selecting  an  increment  of  1  instead  of  4. 

An  alphamerical  character  may  be  plotted  point  by  point  by  using 
a  suitable  program.   The  size  of  the  character  is  determined  by  the  CRT  plotting 
program. 
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4.2.2.6.6.   Display  Unit 

The  21-inch  CRT  used  in  the  'jQO   employs  magnetic  deflection  and 
electrostatic  focusing.   The  tube  has  a  ~FJ   phosphor  coating  that  gives  a 
blue-white  fluorescence  and  a  green-yellow  phosphorescence.   The  persistency  of 
the  tube  is  nominally  about  two  seconds,  but  will  vary  from  0  to  7  seconds, 
depending  on  the  amount  of  ambient  light.   The  unblank  time  of  the  CRT  is  10 
microseconds. 

Full  deflection  of  the  21-inch  CRT  will  be  no  more  than  ten  inches 
in  the  vertical  direction  and  15  inches  in  the  horizontal.   Accuracy  is  1%} 
that  is,  the  maximum  error  in  any  spot  position  will  not  exceed  1%   of  full 
deflection,  and  a  spot  on  a  square  matrix  will  not  drift  more  than  1%   in  one  hour 

The  780  can  be  adjusted  independently  of  the  7^0,  as  it  has  its  own 
controls  for  focus,  axis  intensity,  dot  intensity,  vertical  and  horizontal 
gain,  and  vertical  and  horizontal  centering. 

Because  the  7^0  has  a  square  raster  and  the  7^0  a  rectangular  one,  a 
figure  such  as  a  circle  displayed  on  the  7^0  will  appear  as  an  ellipse  with  an 
axis  ratio  of  3  to  2  on  the  780° 

U.2.2.6.7-   Camera  and  its  Associated  Equipment 

A  35mm  pulse-operated  camera  is  provided  with  the  recording  unit 
to  photograph  the  display  on  the  seven  inch  CRT.   Associated  equipment  permits 
the  camera  to  function  in  conjunction  with  the  recorder  under  control  of  the 
computer.   Film  of  exposure  index  ASA  200  is  suitable  for  recording  the 
pattern  written  on  the  tube  face. 

The  camera  lens  system  is  capable  of  resolving  50  lines  per  millimeter. 
The  square  3*366  inch  raster  will  be  projected  as  a  . 915  (+°025,  -.0U0)  inch 
square  on  the  film.   Distortion  or  error  in  presentation  will  be  no  more  than 
.05$  of  full  raster  size. 

The  camera  does  not  have  a  shutter  and  consequently  monitors  all 
information  written  on  the  CRT.   If  the  computer  is  placed  in  a  copy  loop  to 
regenerate  a  display  on  the  21-inch  tube  of  the  7^0,  the  film  frame  in  the  7^-0 
may  be  overexposed. 


Date: 

5/1/65 

Section : 

4.2.2. 

Page : 

29 

Change : 

Port ho s 

Manual 

k. 2.2.6.8=   Procedure  for  Use  of  the  CRT 

The  foregoing  sections  have  served  to  acquaint  the  user  with  the  CRT 
equipment  and  to  provide  him  with  the  basic  information  with  which  to  make 
his  own  decisions  concerning  his  needs  of  it. 

Use  of  the  CRT  is  fully  within  the  scope  of  the  PORTHOS  system, 
and  two  Library  Routines  are  available  to  facilitate  its  use.   They  are: 

Library  Routine  J5-U0I-SCP2-28-SR  FORTRAN  Axes  and  Point  Plotter, 

Library  Routine  J5-UOI-SCP3-15-SR  General  Alphanumeric  Cathode  Ray  Display. 
The  Subroutine  Library  is  discussed  in  Section  5« 

The  following  procedure,  though  not  required  by  the  PORTHOS  system, 
has  been  found  to  facilitate  the  employment  of  the  CRT  subroutines,  and  the 
user  should  adhere  as  closely  as  practicable  to  it. 

a)  Indicate  the  number  of  frames  expected  on  the  line  provided 
on  the  Problem  Run  Card  submitted  with  the  CRT  problem. 

b)  Follow  the  Problem  Run  Card  with  a  $$  Comment  card:   THIS  IS  A 
CRT  PROBLEM  WITH  n  FRAMES  EXPECTED  where  n  is  an  integer. 

c)  Follow  the  $$  Comment  card  with  a  $  HALT  to  enable  the 
operator  to  turn  on  the  CRT  if  this  needs  to  be  done. 

If  steps  b  and  c  are  not  included  and  the  CRT  is  not  on  at  the  time  of  a 
problem's  execution  and  a  call  for  the  CRT  occurs  within  the  problem,  a  hangup 
will  occur  and  the  next  job  on  the  input  tape  will  be  called  in  by  the  operator. 
If  the  user  has  reason  to  include  other  $$  Comment  cards,  the  $  HALT  should  be 
placed  at  the  end  of  the  block  of  $$  Comment  cards. 

The  above  three  steps  are  a  means  of  assuring  that  the  CRT  problems 
are  run.   The  following  are  steps  to  assure  that  the  quality  of  the  film  returned 
is  as  high  as  possible.   These  steps  are  to  be  carried  out  by  the  user 
through  programming. 

d)  Advance  the  film  5  frames  before  the  first  plot. 
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e)  After  5  frame  advances,  plot  an  identification  frame.   This  frame 
should  contain  the  following  information:  the  word  "Begin",  the  user's  name, 
Problem  Specification  Number  and  number  of  frames  expected,  plus  any  additional 
information  the  user  desires  (see  Library  Routine  J5-UOI-SCP3-15-SR). 

f)  Advance  another  frame  before  beginning  graphic  plots. 

g)  At  the  end  of  plotting  repeat  the  identification  frame  described 
in  e  above,  replacing  the  word  "Begin"  with  "End". 

h)  Advance  the  film  5  frames  (see  d  above). 

Steps  d,  e,  f,  g,  and  h  above  are  performed  automatically  by  the  routine 
BLABEL  and  ELABEL.  Copies  of  this  routine  are  available  in  the  Consulting  Office, 
Room  111b  ERL. 

When  plotting  without  using  the  Library  Routines,  the  user  is  encouraged 
to  replot  any  graphic  and  identification  information  three  times  before  advancing 
the  film  frame. 
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4.2. 3«   Submitting  the  Job 
4.2.3-1-   General 

The  assumption  is  made  at  this  point  that  the  user  has  prepared  his 
input  deck  and  believes  it  to  be  correct  in  all  respects.   His  next  move  is 
to  submit  the  deck  of  cards  to  the  dispatcher  on  duty  at  Room  110a  ERL. 
Immediately"  before  physically  handing  the  deck  to  the  dispatcher,  he  must 
stamp  the  date  and  time  on  the  front  of  his  Problem  Run  Card  (see  Figure  4.1.) 
by  placing  it  face  up,  top  to  the  left,  in  the  time  clock  located  in  the  hallway 
outside  Room  110a  and  next  to  the  Bulletin  Board  (see  section  4.2.4.1.).   In 
return  for  his  deck,  the  dispatcher  will  give  the  user  a  receipt  in  the  form 
of  an  orange  receipt  card  (see  Figure  4.2.  )  similarly  stamped  with  the  date 
and  time.  At  the  top  right  corner  of  the  receipt  card  will  be  an  identification 
code  usually  consisting  of  a  letter  followed  by  three  digits.   This  code  will 
be  henceforth  used  to  identify  that  particular  run  of  that  particular  problem. 
The  letter  signifies  the  "category"  under  which  the  problem  will  be  run  and 
the  three  digit  number  signifies  its  position  within  the  category.   Numbers 
run  sequentially  within  a  category;  e.g.,  U235  was  submitted  ahead  of  U7l4. 
Ordinarily,  within  a  category,  lower  numbered  problems  are  completed  before 
higher  numbered  problems.   Elapsed  time  between  submission  and  completion  of 
a  problem  is  dependent  primarily  upon  its  category.   Categories  enable  the 
Department  of  Computer  Science  to  offer  more  efficient  service  to  users;  they 
are  discussed  below   (see  also  section  4.2.4.2.).   A  summary  of  the  categories 
and  their  definitions  appear  as  Appendix  3» 

4.2.3.2.   Shuttle 

For  short  programs,  Shuttle  services  offers  the  user  the  convenience 
of  a  relatively  short  turn-around  time.   To  be  included  in  this  Shuttle  category 
a  given  run  must  satisfy  all  of  the  following  conditions: 

1)  A  total  time  not  greater  than  2  minutes 

2)  An  execution  time  not  greater  than  1  minute 

3)  An  execution  printing  not  more  than  200  lines,  i.e.,  4  pages 

4)  An  execution  punching  not  more  than  50  cards 
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5)  Less  than  500  assembly  language  cards 

6)  Less  than  50  FORTRAN  cards  or  less  than  500  MAD  cards  or  less 
than  150  ALGOL  cards  or  less  than  500  FASTRAN  cards 

7)  Less  than  500  binary  cards 

8)  Less  than  100  data  cards 

9)  Non-class  work 

10)  No  $  CLEANUP  cards  in  job  deck  (see  section  6.2.9.3.) 

11)  In-system  and  no  special  requirements  (see  Problem 
Specification  Form,  Appendix  h) 

Shuttle  problems  are  run  three  times  a  day,  Monday  through  Friday 
at  9  AM*  2  PM,  and  9  PM,  and  output  is  normally  available  three  hours  after  each 
run  is  started.   Job  numbers  for  Shuttle  runs  are  distinguished  by  the  letters 
R,  S,  T  and  U.   A  maximum  of  2  jobs  per  person  may  be  submitted  for  any  one 
Shuttle  run. 
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if. 2. 3. 3«   Category  I 

Jobs  under  this  category  are  usually  run  during  the  day  shift,  and 
turn-around  time  is  usually  short,  but  not  as  short  as  that  of  Shuttle  runs.   Only 
scheduled  engineering  on  the  709U  between  8:00  AM  and  10:00  AM  daily  and  the 
scheduled  Shuttle  runs  take  precedence  over  Category  I  problems.   Jobs  which 
cannot  qualify  for  Shuttle  can  qualify  for  Category  I  if  they  meet  the  following 
conditions : 

1)  Execution  time  not  greater  than  3  minutes 

2)  Total  time  (translation  plus  execution)  not  greater  than  5  minutes 

3)  Execution  printing  not  greater  than  30  pages 
k)     Execution  punching  not  greater  than  100  cards 

5)  No  $  CLEANUP  cards  in  input  deck  (see  section  6.2-9.3- ) 
In  addition,  the  job  must  be  run  within  system  with  no  special  problem 
requirements,  such  as  tape  mounting,  cathode  ray  tube  plotting,  special  paper 
or  cards,  extra  copies,  etc.  (see  section  2.2.3.).   If  a  translation  is  involved, 
then  the  execution  time  punched  in  the  problem  run  card  must  be  3  minutes  or  less 
and  the  number  of  pages  punched  in  the  problem  run  card  must  be  30  or  less. 
This  limitation  exists  for  all  categories. 

Job  Numbers  for  Category  I  are  prefaced  by  A,  B,  C,  or  D.   A  maximum 
of  2  jobs  per  person  may  be  submitted  for  any  one  Category  I  run. 

4.2. 3. U.   Category  II 

A  problem  qualifies  for  Category  II  if  it  does  not  qualify  for 
Category  I  and  it  meets  the  following  conditions: 

1)  If  no  translation  is  involved  (i.e.,  all  binary  object  decks) and 
execution  time  is  greater  than  3  minutes  but  not  greater  than 

20  minutes. 

2)  If  a  translation  is  involved  (SCATRE,  FASTRAN,  etc.)  and  total  time 
is  greater  than  5  minutes  but  not  greater  than  20  minutes. 

In  this  case,  execution  time  must  be  3  minutes  or  less  and  execution 

printing  must  be  30  pages  or  less. 
Problems  in  Category  II  must  be  run  within  system  but  may  have  special 
requirements  as  described  in  section  2.2.3*  which  do  not  require  more  than  20 
minutes  total  time.   Job  numbers  for  Category  II  are  prefaced  with  F,  G,  or  H. 
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^.2.3.5.   Category  III 

Problems  are  run  in  Category  III  if  they  require  not  more  than  1  hour 
of  computer  time  and  do  not  qualify  for  a  lower  category  assignment.   They  do 
not  have  to  be  run  under  system  and  may  have  special  requirements  (see' 
section  2.2.3-  )• 

Job  numbers  for  Category  III  are  prefaced  by  L,  M,  or  N. 

4.2.3.6o   Category  IV 

If  a  problem  cannot  qualify  for  any  other  category,  then  it  is  run  in 
Category  IV.   Normally,  problems  in  this  classification  have  the  lowest  priority  and 
may  be  run  during  the  week-end.   Job  numbers  for  Category  IV  are  prefaced  by  Q. 

LP/90  job  numbers  have  the  prefix  T?}    and  are  batched  in  Category  III 
or  IV,  depending  on  the  total  estimated  time. 

4.2.3.7.  Mathematics  195  Homework 

Class-assigned  problems  for  all  sections  of  Mathematics  195  are 
batched  together  and  run  as  a  separate  category.   Job  numbers  for  this  category 
are  four  digits  long  and  are  not  prefaced  by  a  letter. 

4.2.3.8.  Single  Runs  of  Short  Programs 

As  computers  become  easier  to  use  and  as  more  people  become  familiar 
with  their  use,  small  single-shot  computer  runs  can  originate  from  many  sources. 
Examples  of  such  uses  are: 

1)  Course  homework  in  cases  in  which  the  instructor  has  not 
explicitly  designated  that  the  computer  be  used. 

2)  Exercises  carried  out  for  the  purposes  of  self  education, 
practice,  or  exploration  by  either  students  or  faculty. 

3)  Small  tasks  supplementary  to  but  not  central  to  a  piece  of  research, 
such  as  the  one-time  evaluation  of  a  complicated  expression,  the 
preparation  of  a  small  specialized  table,  etc. 

The  Department  of  Computer  Science  encourages  such  uses;  however, 
such  use  must  be  assigned  a  priority  less  than  that  associated  with  research 
in  which  the  computer  plays  a  central  role  or  instruction  in  courses  in  which 
the  computer  is  explicitly  used. 
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To  accomodate  this  area,  of  use,  such  work  will  be  accepted  without  a 
specific  Problem  Specification  Number  under  a  blanket  Problem  Specification  Number 

28018 

Departmental  designation  in  this  case  is  XSSS,  which  must  be  punched  left- 
justified  in  columns  55-60.   Such  work  will  be  collected  each  day,  Monday- 
through  Friday,  run  approximately  at  midnight,  and  normally  returned  the 
following  day.   It  will  be  run  for  a  limited  period  each  night  on  a  first-come- 
first-served  basis. 

To  qualify  for  this  category  the  jobs  should  satisfy: 

a)  Execution  time  of  1  minute  or  less 

b)  Total  time  of  2  minutes  or  less 

c)  Execution  printing  of  3  pages  or  less 

d)  No  execution  card  output 

e)  No  binary  output  (PUNCH  0BJECT) 

f)  No  special  problem  requirements  (see  section  2.2.3*  ) 

The  problem  specification  number  28018  is  not  eligible  for  Shuttle 
or  any  other  category.   Only  standard  research  or  instructional  Problem  Specification 
Numbers  will  be  accepted  for  Shuttle  and  category  runs. 

Research  problems  of  a  continuing  nature  of  requiring  more  than  one 
run  or  instructional  programs  in  which  the  computer  is  explicitly  used  are 
expected  to  follow  the  standard  problem  submission  procedures  as  described 
in  the  preceding  sections  of  this  manual. 

One  run  per  day  will  be  accepted  for  28018  from  any  senior  faculty 
member  of  the  University.   Students  wishing  to  use  this  category  must  make 
appropriate  arrangements  with  such  a  faculty  member,  and  submit  the  job  under 
that  faculty  member's  name.   No  work  already  covered  by  an  existing  Problem 
Specification  Number  will  be  accepted  under  the  28018  classification.   Any 
work  already  covered  by  an  existing  Problem  Specification  which  is  submitted 
as  28018  will  automatically  be  regarded  as  a  request  for  the  voiding  of  that 
Problem  Specification  Number. 

Job  numbers  for  this  category  are  prefaced  by  Y. 
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4.2.4.      Processing  the  Job 

4.2.4.1.  The  Bulletin  Board 

New  information  concerning  the  7094  installation  is  posted  on  the 
Bulletin  Board  outside  Room  110  ERL;  after  48  hours  on  the  "48-hour  Bulletin 
Board",  the  notice  is  transferred  to  the  adjacent  general  Bulletin  Board,  where 
it  stays  for  an  indefinite  time.   Hence,  the  regular  visitor  to  the  Department 
need  only  check  the  48-hour  Bulletin  Board  to  keep  abreast  of  the  notices  as 
they  are  posted. 

In  addition  to  being  posted,  the  notices,  often  in  expanded 
form,  are  included  in  the  Information  Bulletin,  which  appears  from  time  to  time. 

Also  posted  on  the  Bulletin  Board  is  information  concerning 
the  state  of  the  computers  (either  up_  (operating)  or  down  (not  operating  and 
being  repaired))  and  the  state  of  the  output,  in  the  form  of  cards  which  indicate 
for  each  category  (see  section  4.2. 3»)  the  last  job  number  completed  and  ready 
for  return  to  the  user.   This  is  essentially  the  same  information  available  by 
telephone  through  the  recorded  message  (see  section  4.2.4.6.). 

4.2.4.2.  The  Routing  Office 

The  Routing  Office,  Room  110  ERL,  is  the  focal  point  of  the 
user's  contacts  with  the  Department.   It  is  here  that  he  deposits  his  jobs  for 
processing  and  receives  the  output  after  his  job  has  been  completed.   The  Office 
is  open  24  hours  a  day  and  7  days  a  week,  except  for  certain  holidays. 

When  the  dispatcher  receives  the  job  from  the  user,  along  with  a 
request  for  a  particular  category  placement,  he,  when  possible,  examines  the  job 
to  see  if  it  qualifies  for  the  requested  category.   If  it  does  not,  he  notifies 
the  user  immediately  and  offers  him  the  choice  of  accepting  a  different  category 
or  retrieving  the  deck  for  alteration.   Otherwise,  he  gives  the  user  an  orange 
receipt  card  (see  section  4.2.3-1.  and  Figure  4.2.),  places  a  divider  card 
(called  an  S-8  Card)  in  front  of  the  deck,  and  places  it  in  proper  order  with 
other  jobs  in  its  category.   A  collection  of  such  jobs  (called  a  "batch" ),. 
is  moved  from  the  Routing  Office  to  the  1401  Computer  Room  at  regular  intervals. 
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k.2.k.?,*      Preparation  of  Input  Tapes 

When  batched  jobs  are  delivered  to  the  1^01  Computer  Room,  the  computer 
operator  loads  them,  in  the  order  in  which  they  arrived  at  the  Routing  Room, 
into  the  read  hopper  of  the  1^+02  Read-Punch  unit.   He  places  a  blue  system 
input  tape  on  a  tape  unit  of  the  lAOl  and  turns  control  of  the  computer  over 
to  the  CHAOS  system. 

CHAOS  is  a  l]+01  program  which,  from  card  input,  prepares  a  magnetic 
tape  according  to  the  special  format  required  by  the  PORTHOS  system  for  the  709^-* 
The  option  exists  to  alter  the  format  so  as  to  prepare  a  tape  meeting  SHARE 
Operating  System  specifications.   CHAOS  also  will  print  and/ or  punch  output  from 
a  tape  generated  by  the  709^+  and  mounted  on  the  second  lUOl  tape  unit.   These 
operations  can  be  performed  separately  or  concurrently,  with  correspondingly 
increased  processing  rates. 

At  the  same  time  that  CHAOS  is  preparing  the  magnetic  tape  for 
the  PORTHOS  system,  it  also  copies  the  user's  Problem  Run  Card  and  other  information 
(such  as  $$  Comment  and  SAVEMOUWT  cards)  from  the  input  decks  and  punches  cards 
containing  this  information.   Together  with  a  standard  heading  containing  information 
common  to  all  the  jobs  on  that  particular  magnetic  tape,  these  cards  are  listed; 
the  listing  then  is  attached  to  the  tape  reel  for  delivery  to  the  709^+  Computer 
Room.   This  listing,  or  "flow  sheet",  is  the  prime  source  of  information  for  the 
709^+  computer  operator  concerning  the  processing  of  this  particular  system  input 
tape. 

After  the  input  decks  have  been  loaded  onto  magnetic  tape,  they 
are  returned  to  the  Routing  Room  to  await  the  output  from  their  processing  by  the 
709U. 

k.2.k.k.      The  7094 

When  the  magnetic  tapes  have  been  loaded,  they  are  carried  to 
the  709^+  Computer  Room,  where  they  await  their  turn  to  be  processed.   The 
tapes  are  placed  on  a  tape  unit  by  the  operator  and  control  passed  to 
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PORTHOS,  which  processes  as  much  of  every  job  as  it  can,  automatically  rejecting 
those  which  cannot  be  continued,  with  appropriate  messages  to  the  user,  and  pre- 
pares a  tape  with  the  output  generated  by  each  job. 

U.2.4.5.   Processing  of  Output  Tapes 

The  output  tape  generated  by  the  709^-  is  then  taken  back  to  the 
1^-01  Computer  Room,  where  it  is  processed  by  CHAOS,  the  user's  printed  and  punched 
output  being  the  result.   This  printed  and  punched  output  is  returned  to  the 
Routing  Room  where  it  is  broken  down  into  individual  jobs  which  are  collated 
with  the  appropriate  input  decks.   These  jobs  are  then  stored  by  job  number  in 
the  Routing  Room  and  returned  to  the  user  on  presentation  of  the  appropriate 
receipt  card  (see  Figure  h.2.  ). 

h.2.h.6.      The  Recorded  Message 

The  user  need  not  pay  a  visit  to  the  709^-1^-01  Installation  in 
person  to  determine  the  state  of  the  output,  or  specifically,  whether  or 
not  his  job  has  been  completed  and  can  be  picked  up  at  the  Routing  Room.   The 
telephone  number  333-163^-  is  attached  to  message  recorders  on  which  Routing 
Room  personnel  periodically  record  the  state  of  the  709^-1^01  system  and  the 
work  flow  through  it.   The  message  is  updated  approximately  every  hour.   Liberal 
use  of  this  service  by  users  is  encouraged. 

U.2.^.7.   Pickup  of  Output 

After  the  user  has  determined  definitely  from  the  Recorded 
Telephone  Message  or  from  the  Bulletin  Board  that  his  job  has  been  processed 
and  is  ready  to  be  picked  up,  he  should  present  his  orange  receipt  card  at  the 
Output  window  of  the  Routing  Room,  Room  110  ERL.   He  will  be  given  all  the 
input  material  (decks  or  tape)  which  he  submitted  and  the  output  from  his  job, 
which  in  addition  to  a  listing  from  the  off-line  printer  may  include  punched 
cards  or  35-mm  film  from  the  CRT  camera.   Film  output  is  processed  and  returned 
to  the  user  at  approximately  6:00  PM  on  the  day  following  the  date  the  job 
was  processed  on  the  709^. 
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U.2.6.   The  Multiple  Core -Load  Job:  PING-PONG 

4.2.6.1.  General 

Ping-Pong  is  the  process  of  calling  and  executing  several  self- 
contained  programs  (core-loads)  in  one  job.   Each  core-load  consists  of  a 
main  program  and  its  subroutines,  which  may  be  in  relocatable  binary  or 
symbolic  source  language  form. 

Variables  which  are  referenced  by  more  than  one  core-load  should 
be  allocated  to  COMMON  storage  (FASTRAN  and  FORTRAN  IBM),  ERASABLE  storage 
(MAD  and  SCATRE),  or  PR0GRAM  C0MM0M  storage  (MAD  and  SCATRE). 

4.2.6.2.  Deck  Set-Up 

Each  core -load  in  a  Ping-Pong  deck  must  be  followed  by  either  a 
$  BREAK  control  card  or  a  Binary  Transition  card   (see  section  4.2.6.4.). 
The  Monitor  will  generate  a  Binary  Transition  card  for  each  $  BREAK  in  the 
deck.   These  Binary  Transition  cards  will  also  be  punched  and  returned  to 
the  user  whether  or  not  $  PUNCH  0BJECT  cards  were  included  for  the  core -loads. 

The  set-up  of  the  core-load  preceding  the  $  BREAK  or  Binary  Transition 
card  is  subject  to  the  same  rules  as  a  single  core-load  job  with  the  exception 
that  the  $  DATA  control  card  must  follow  all  programs;  i.e.,  the  $  DATA  card 
followed  by  data  follows  all  the  core-loads,  not  a  set  of  data  following  each 
core-load. 

4.2.6.3.  How  the  System  Handles  Ping-Pong  Jobs 

1.   Core-loads  are  processed  sequentially  by  the  system,  prior  to 
any  execution,  according  to  the  $  control  cards  which  precede  them;  symbolic 
decks  will  be  assembled  or  compiled,  and  object  programs  printed  and  punched. 
Whether  or  not  PUNCH  OBJECT  is  requested,  the  object  programs,  consisting  of 
relocatable  binary  card  images,  are  written  on  logical  tape  3  (the  execution 
tape)  as  they  are  generated.   Portions  of  core-loads  which  occur  in  the  deck 
in  the  form  of  relocatable  binary  cards  are  copied  directly  onto  logical  tape 
3  whenever  they  are  encountered  but  only  if  a  $  GO"  occurred  in  the  first  group 
of  $  control  cards  (binary  cards  are  ignored  by  the  Monitor  if  execution  is 
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not  requested  or  is  deleted  by  an  unsuccessful  translation).   A  core-load  can 
of  course  consist  entirely  of  binary  cards. 

2.  Each  core-load  on  logical  tape  3  will  be  followed  by  a  Binary 
Transition  card  (see  section  4.2.6.2.). 

3.  If  G^ZS  was  requested  and  no  fatal  errors  were  encountered  during 
processing,  the  Monitor  writes  an  end-of-file  mark  on  tape  3  and  calls  in  the 
Loader  to  load  the  programs  from  tape  3  into  core  for  execution. 

4.  The  Loader  loads  the  first  core-load  from  logical  tape  3  into 
core,  relocating  it  properly  and  obtaining  the  necessary  subroutines  from  the 
subroutine  library.  After  loading  has  been  completed,  the  Loader  generates  a 
loading  block  (see  section  4.2. 6. 5.)  for  the  program  currently  in  core  and 
writes  it  and  an  image  of  the  core  contents  on  a  tape  all  as  one  record. 
"Core  contents"  in  this  case  refers  to  the  locations  from  the  beginning  of 
the  user's  program  to  (PR0G),  the  program  break,  inclusive,  as  specified  on 
the  map  generated  by  the  Loader. 

The  Loader  then  repeats  this  process  for  all  the  core-loads  which 
are  stacked  on  the  execution  tape.   (The  tape  on  which  the  Loader  stacks  the 
core  images  is  ordinarily  logical  tape  2,  although  the  user  may  specify  certain 
others.   See  section  4.2.6.4.  for  formats  of  $  BREAK  and  Binary  Transition  cards, 

5.  After  all  loading  and  stacking  has  been  performed,  the  Loader 
writes  an  End-of-Tape  record  on  all  tapes  used  for  stacking  (normally  tape  2). 
The  End-of-Tape  record  is  identified  by  T777To  in  the  address  of  the  first  word. 

The  Loader  then  reads  in  the  core  image  generated  by  the  first  core- 
load  in  the  deck  and  transfers  control  to  it.   If  the  last  core-load  does  not 
contain  a  $  BREAK  or  Binary  Transition  card,  this  core-load  remains  in  core  and 
is  the  first  core-load  to  be  executed. 

NOTE:   The  process  which  has  just  been  described  presumes  that  the  user  has 
submitted  his  entire  job  in  the  form  of  punched  cards  and  that  therefore  his 
core-loads,  in  their  entirety,  will  be  on  the  input  tape.   Some  users  may 
have  a  reserved  tape  which  contains  binary  card  image  core-loads  as  described 
for  logical  tape  3  in  1.,  2.,  and  3»  above.   Therefore  a  means  exists  for 
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telling  the  Loader  to  create  a  (portion  of  a)  core-load  from  a  tape  other 
than  the  execution  tape  by  including  in  the  input  deck  Binary  Transition 
cards  with  an  appropriate  punch  in  column  9*   See  Binary  Transition  card 
format  below. 


h.2.6.h.      Formats  of  $  BREAK  and  Binary  Transition  Cards 


1. 


$  BREAK 

Cols. 

1 


Contents 


2-72  (anywhere)  BREAK  (N) 

where  N  is  a  logical  tape  number,  one  of: 

2,    9,    10* 

This  card  is  used  to  indicate  the  end  of  a  core-load.   The  logical 
tape  number,  N,  specifies  the  tape  on  which  the  Loader  is  to  write  the  core 
image  record  of  the  core-load.   $  BREAK  without  the  "(N)"  will  cause  the 
Loader  to  write  the  core  image  onto  logical  tape  2.   (Note  that  the  Loader 
does  not  read  the  $  BREAK  card;  it  reads  the  Binary  Transition  card  generated 
by  the  Monitor  and  written  on  tape  3). 


2.    Cols. 
1 

2-5 

6 

7,8 

9 

10,11 

12  (optional) 

13-72 


Contents 

+,  1,  9 

blank 

N 

blank 

M 

blank 

P 

blank 


where  I  is  a  logical  tape  number,  one  of: 

2,  9,  10* 

*  If  10  is  to  be  used,  the  user  must  indicate  to 
the  operator  by  means  of  the  $$  Comment  card 
to  be  sure  a  scratch  tape  is  mounted  on 
logical  10. 
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M  is  a  logical  tape  number,  not  identical  with  N,  and  one  of 

2,  3,  1,    9,    10* 
and  P,  used  only  and  optionally  with  col.  6,  is  a  "l"  or  a  "2". 

a)  When  the  Loader  detects  a  tape  number  (N)  in  col.  6,  it 
writes  the  current  contents  of  core  as  a  record  on  tape  N  and  proceeds  to 
read  another  binary  card  image  from  the  tape  from  which  it  is  currently 
loading.   (This  is  ordinarily  tape  3*  the  execution  tape,  but  may  be  a 
tape  (M)  designated  by  the  user.   See  b)  below). 

b)  When  the  Loader  detects  a  tape  number  (M)  in  col.  9>  it 
continues  reading  and  relocating  (into  core)  instructions  from  relocatable 
binary  card  images  on  tape  M. 

Note  1:   Reading  and  relocating  from  tape  3>  or  tape  M  continues  until  an 
E0F  mark  is  encountered  on  one  of  those  tapes.   All  loading  is 
then  terminated  and  execution  will  begin.   (see  3  in  section 
k.2.6.3-      How  the  System  Handles  Ping-Pong  Jobs). 

NOTE  2:   l)   if  cols.  6  and  9  are  both  blank,  the  current  core  contents  are 
written  on  logical  tape  2  and  loading  of  another  core-load  will 
continue  (from  tape  3  or  previous  tape  M); 

2)  if  col.  6  is  blank  and  col.  9  is  non -blank,  loading  into  core 
continues  from  tape  M  (in  col.  9);  no  core-load  is  written  on 
tape  2; 

3)  if  col.  6  is  non-blank  and  col.  9  is  blank,  the  current  core 
contents  will  be  written  on  tape  N  (in  col.  6)  and  loading  of 
another  core-load  will  continue  (from  tape  3  or  previous  tape  M); 
h)      if  col.  6  and  9  are  both  non-blank,  the  current  core  contents 
will  be  written  on  tape  N  (in  col.  6),  and  loading  of  another  core- 
load  will  continue  from  the  tape  M  designated  in  col.  9« 

c)  When  the  Loader  detects  a  "l"  in  col.  12,  the  core-load  (completed 
or  not)  is  written  on  the  tape  specified  in  col.  6.   This  core-load  contains 
the  Loader  Tables  necessary  for  utilization  of  the  Loader  dur ing  executing  to 
complete  the  loading  of  this  partially  loaded  core-load.   (see  section  3*2.4. 15. 
for  use  of  this  feature). 

*  If  10  is  to  be  used,  the  user  must  indicate  to 
the  operator  by  means  of  the  $$  Comment  card 
to  be  sure  a  scratch  tape  is  mounted  on 
logical  10. 
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U.2.6.6.   How  a  Ping-Pong  Job  Executes 

The  first  core-load  to  be  executed  will  be  the  first  one  physically 
in  the  job  deck  unless  the  last  core  load  does  not  contain  a  $  BREAK  or 
Binary  Transition  card  in  which  case  the  last  core  load  remains  in  core  and  is 
executed  first.   The  order  of  execution  of  succeeding  core-loads  is  determined 
by  the  execution  in  the  core-loads  of  instructions  generated  by  one  of  the 
following  statements: 

CALL  SEQPGM   (N) 

CALL   SEQPGM 

TXH    N 

EXECUTE  SEQPGM.    (n) 

CALL  SELPGM  ( IDENT, N) 

CALL   SELPGM 

TXH    IDENT 

TXH    N 

EXECUTE  SELPGM.  ( IDENT, N)      (MAD) 

where  N  is  the  logical  tape  number  of  the  tape  which  contains  the  desired 
core-load  (2,  9,    and  10)  and  IDENT  is  the  record  number  of  the  core-load  on 
tape  N.   NOTE:   N  may  be  omitted  if  the  desired  core-load  is  on  tape  2. 

SEQPGM  reads  and  transfers  control  to  the  next  core-load  in  sequence 
from  tape  N  (or  tape  2  if  N  is  omitted).   SEQPGM  cannot  be  used  in  the  last 
core  load.   If,  in  the  last  core  load  of  a  Ping-Pong  job,  another  core  load 
is  desired,  SELPGM  should  be  used.   SELPGM  reads  and  transfers  control  to 
the  core-load  with  the  desired  IDENT.   If  such  an  IDENT  has  not  been  defined  for 
this  job,  execution  is  terminated  via  SYSERR. 


(FASTRAN  or  FORTRAN  IBM) 
(SCATRE) 

(MAD) 

(FASTRAN  or  F0RTRAN  IBM) 

(SCATRE) 
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^4.  3» 2.   Submitting  the  Relinquish  Job 

The  Relinquish  job  must  be  submitted  by  the  same  general  procedure  as 
for  system  jobs.   If  cards  are  involved,  they  should  be  preceded  by  a  Problem 
Run  Card,  properly  filled  out  and  marked  as  a  Relinquish  job.   In  addition,  for  any 
Relinquish  job  a  special  form  (see  Figure  4.3)  must  be  completely  filled  out  and 
submitted  with  the  job.   This  form  must  contain  all  the  information  needed  by 
the  operator  to  successfully  run  the  job.   Instructions  on  operation  of  the  7094 
must  be  clearly  and  concisely  stated.   All  legal  (expected)  stops  and  action 
to  be  taken  at  each  must  be  noted;  otherwise,  the  operator  will  terminate  the  job 
with  a  core  dump  upon  the  appearance  of  an  unexplained  stop. 

Separate  decks  which  comprise  one  job  should  be  clearly  marked  on  the  top 
and  front  of  each  deck.   References  in  the  operating  instructions  to  these  decks 
should  use  the  same  names  as  those  on  the  decks. 

If  the  job  requires  1401  preparation  or  processing  which  cannot  be 
handled  by  CHAOS  (see  section  4.2.*f),  the  user  must  also  submit  the  1401  library 
program  number  and  title,  or  the  l401  program  deck,  and  complete  operating 
instructions  for  that  program.   All  stops  which  may  occur  and  action  to  be  taken  for 
each  must  be  included.   If  the  1401  program  requires  control  cards,  the  user 
must  include  them  with  his  job.   Write-ups  of  available  1401  programs  may  be 
examined  in  the  Consultants'  Office,  Room  111b  ERL. 

The  standard  density  of  magnetic  tapes  at  the  7094  installation  is  800 
bits  per  inch  (bpi).   If  a  Relinquish  user  has  acquired  tapes  from  another 
installation,  the  tapes  may  possibly  be  written  at  a  lower  density.   If  this  is 
the  case,  and  the  user  expects  to  use  the  tapes  more  than  one  t ime ,  then  he  must  have 
the  tapes  copied  at  the  higher  (800  bpi)  density,  and  he  should  take  this  additional 
tape  requirement  into  account  when  planning  his  project.   Magnetic  tape 
acquisition  is  discussed  in  section  2.4.2.,  and  tape  copying  in  section  4.2.2.5. 

The  user  should  submit  LP-90  jobs  to  the  Routing  Room  in  the  following 
manner;  the  agendum  deck  should  be  submitted  with  AGENDUM  and  OUTPUT  cards  as 
the  first  and  last  cards  of  the  deck.   The  data  deck  should  be  submitted  with  a 
standard  system  ID  card  on  the  front.  A  run  number  starting  with  P  will  be  assigned 
and  a  receipt  card  issued  for  each  data  deck. 
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If  multiple  jobs  are  being  submitted,  all  agendum  decks  should  be 
grouped  together  in  the  same  order  as  the  data  decks.   All  agenda  that  use  the 
same  data  decks  must  include  the  SAME  INPUT  agendum  as  explained  above. 

Because  of  the  new  operating  procedure,  the  REWIND  option  of  the  INPUT 
agendum  should  no  longer  be  used. 

The  relinquish  forms  normally  filled  out  should  no  longer  be  submitted 
with  the  jobs  unless  there  are  special  requirements,  such  as  special  tapes.  The 
709^+  operator  will  have  general  operating  instructions  available  to  him. 
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UNIVERSITY  OF  ILLINOIS 
GRADUATE  COLLEGE 
DIGITAL  COMPUTER  LABORATORY 

Relinquish  Instructions 


Name 

Prob.  Spec. 

Dept. 

Date 

Est. 

Time  of  Run 
hrs.       minso 

Chan- 
nel 

Tape  Unit 

A 

Density 

Chan- 
nel 

Tape  Unit 

— — 

B 

Density 

Printer 


Punch 


Load  Cards 


Load  Tape 


1^-01  Special  Instructions 


709^  Special  Instructions  (Be  sure  to  list  all  halts) 


Disposition  of  tapes: 

Final  Halt 

TAPE 

PUNCH 

PRINT 

SAVE 
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^.3«3«   Categories 

The  Relinquish  jobs  do  not  form  a  separate  category,  as  defined  in 
section  k.2.3.      It  is  the  responsibility  of  the  user  to  properly  categorize  his 
Relinquish  job,  following  the  definitions  of  the  several  categories  in 
section  k.2.3> 

Every  Relinquish  job  is  considered  to  have  special  requirements;  hence, 
only  Categories  III  and  IV  are  open  to  Relinquish  jobs. 
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5.   The  Subroutine  Library 
5.1.   General 

The  Department  of  Computer  Science  has  organized  and  is  constructing 
a  library  of  routines,  complete  programs,  and  subroutines  for  carrying  out  various 
mathematical,  statistical,  and  data  handling  procedures.   Some  of  these  routines 
originate  within  the  Department  but  others  are  being  acquired  by  exploiting 
the  great  amount  of  programming  which  has  been  done  for  IBM  700  and  7000  series 
machines.   All  routines  available  to  users  are  being  gathered  into  a  single  library 
classified  in  a  uniform  fashion  described  below.   This  classification  scheme 
is  compatible  with  an  extension  of  that  used  by  SHARE,  the  co-operative 
organization  of  IBM  7OO/7OOO  users. 

Those  routines  of  the  Department  of  Computer  Science  Library  which  are 
most  used  have  been  incorporated  into  the  System  Master  Tapes  in  such  a  way  that 
they  will  be  automatically  available  for  insertion  into  programs  produced  by  the 
compilers,  assemblers,  and  other  subsystems  that  make  up  the  System.   The  rest  of 
the  library  resides  on  cards  for  manual  insertion  into  programs  by  the  users. 

Each  routine  is  to  be  assigned  a  number  made  up  of  five  parts: 

i  -  Classification  Code  -  One  letter  and  one  number  designating 
the  primary  and  secondary  class  to  which  the  routine  belongs 
according  to  the  SHARE  classification, 
ii  -  Installation  Code  -  Two  or  three  letters  identifying  the  origin  of 

routine  (MU  =  MURA;  UOI  =  University  of  Illinois;  BC  =  University 
of  California,  Berkeley;  etc.) 
iii  -  Internal  Identification  Code  -  These  four  ciiaracters  will  be  used  to 
identify  the  routine  semi -mnemonic ally, 
iv  -  Serial  Number  -  A  simple  sequence  number  which  advances  by  one  for 
each  routine  added  to  the  library, 
v  -  Characters  describing  the  language  in  which  the  program  is  available: 
F  -  FORTRAN 
A  -  ALGOL 
M  -  MAD 
S  -  SCAT  or  SCATRE  (Fully  Symbolic) 
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Z  -  SQUOZE  (Compressed  Symbolic) 
B  -  Binary  (Absolute) 
R  -  Binary  (Relocatable) 
X  -  Routine  is  on  System  Master  Tape 
For  example, 

Bl+  -  UOI  -  SQR3  -  IT  -  RX 

would  stand  for  the  square  root  routine  (SQR3)  written  at  the  University  of 
Illinois  (UOl).   It  would  be  on  the  system  tape,  is  in  relocatable  binary  form, 
and  is  the  seventeenth  routine   placed  in  the  library. 
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5.3«   Library  Subroutines 

5.3«1«   Documentation 

The  documentation  of  the  library  subroutines  is  complete  and  formalized. 
Several  categories  of  information  are  included  for  each  subroutine;  they  are 
discussed  below.   Line  references  are  to  the  lines  of  an  example.   (Figure  5«L). 

IDENTIFICATION  The  identification  of  the  library  subroutine  consists 
of  the  SHARE  Routine  Classification  Number  (line  l)  (See  section  5*2.)  and  a 
descriptive  title  (line  2).   Also  included  is  a  statement  of  the  languages 
(see  section  3«3-)  in  which  the  subroutine  may  be  called  (lines  2,3). 

PURPOSE  A  statement  of  the  purpose  of  the  subroutine  appears  next 

(lines1*-?). 

RESTRICTIONS  Since  the  computer  is  a  finite  machine  (in  the  sense  that 
registers  are  of  finite  length,  core  is  of  finite  size,  computation  can  be 
carried  out  only  over  a  finite  period  of  time,  etc.,  restrictions  of  various 
kinds  may  exist.   If  such  restrictions  do  exist,  they  follow  the  section 
describing  PURPOSE. 

METHOD  A  statement  of  the  mathematical  method  employed  by  the 
subroutine  appears  in  this  section  (lines  8-25)' 

USAGE   In  the  IDENTIFICATION  section,  the  languages  in  which  the 
subroutine  may  be  called  are  stated.   In  this  section,  specific  instructions 
(lines  26-3^)  for  calling  the  routines  are  given,  with  examples,  for  each  of 
the  permitted  languages.   Occasionally  included  here  is  a  statement  of  the 
numerical  accuracy  of  the  routine,  if  this  is  appropriate. 

CODING  INFORMATION  This  section  contains  statements  of  the  approximate 
time  required  for  execution  and  the  exact  number  of  storage  locations 
required  for  the  program  (lines  35-37).   if  the  user  requires  the  exact  timing 
for  execution,  then  he  must  calculate  it  from  the  program  listing,  which  is 
(in  the  case  of  tape  library  subroutines)  easily  obtained  through  the 
Consulting  Office.   In  those  subroutines  of  an  iterative  nature,  exact 
timing  information  may  not  be  practicable  to  obtain. 
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TEST  RESULTS   If  the  nature  of  a  particular  program  is  such  that  test 
results  should  be  documented  (as,  for  example,  in  the  case  of  a  pseudo-random  number 
generator),  then  that  information  is  included  in  this  section;  otherwise  the  section 
is  omitted. 

REFERENCES  References  pertinent  to  this  subroutine  are  included  in 
this  section  (lines  41-^-3 )• 

Where  subroutines  have  been  acquired  in  part  or  in  whole  from  other 
sources,  appropriate  acknowledgements  are  made  in  a  separate  AC KNO WLED GEMENT S 
section. 
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UNIVERSITY  OF  ILLINOIS 

GRADUATE  COLLEGE 

DEPARTMENT  OF  COMPUTER  SCIENCE 

709^+  Library  Routine 
C3-UOI-ERF2-69-SR 


Entry  Name 
ERF2 


IDENTIFICATION 
and  MAD. 


Floating  Point  Error  Function  for  FORTRAN,  SCATRE 


PURPOSE 


This  program  computes  the  error  function  for  any 


given  floating  point  argument  X: 


ERF2(X)  = 


where  ERF2(X)  =  -ERF2(-X) 


VTT 


nx        _t2 

e  Z      dt 


u 


METHOD 


The  error  function  is  approximated  by  the  following 


0  <  x  <  .43686581E-12 


.i+36858lE-12  <  X  <  1 


1  <  X  <  3 


3  <  X  <  k.l 


4.1  <  X 


ERF2(X) 
ERF2(X)   = 

ERF2(X)   = 


=   X 


8 

E  AX 

n  n 

n=0 


2n+l 


16 

E  B    (X-2)n 

n=0 


2  -X" 


ERF2(X)   =    1   -   — =-     e 


N/JT 


h 

E       c  x 

n=0        n 


2n+l 


E 

n=0 


2n 


ERF2(X)   =    1. 


Figure   5.1. 


ERF2 


where 


AQ  =  1.128379167 
Ax  =  -3.761263886 
A2  =  .1128379086 
A.  =  .26866IOU93E-I 


B„  = 


B,=  - 


995322265       B9  = 
2066698536E-I   B 
•^133397077E-1  B 


11 


■  .26305U997E-3  c 
1038021337E-3  0 


B  =  .^822296580E-1   B   =  .5664198828E-5    C 


'3 


A^  =  .522368937E-2    B^  =  _.3i+^i+97397E-i  b   =  -.1632052775E-4  c^ 


A     =    -.8540862169E-3 

A6  =    .11937^7176E-3 

A     =    -,13800^1506E-^ 

A0  =   .10333^2623E-5         BQ  = 


5  : 

.1308909088E-I 

B1U 

6  = 

.1+5921+95951+E-3 

B15 

7  = 

-.3378887663E-2 

B16 

a  = 

. 1591116495E-2 

D„   = 


D,     = 


17 
18 

19 


Ik 

5012685918E-4     Cn  =:  180.9375   15 

330.0       16 
lVf.O 

22.0 

1.0 

=  .3512622626E-5   D  =:  59.0625 
=  .1049097729E-5   D  =  590.625   21 
=  -A569727278E-6  D  =  787.5 

315.0 

I45.O 
D^  =  2.0 


22 

23 
2k 

25 


USAGE 


The  calling  sequences  for  ERE2  are: 
SCATRE        CALL     ERF2,X 
MAD  Y=ERF2.(X) 

F0RTRAN       Y  =  ERF2(X) 

where  X  is  the  floating  point  value  for  which  the  error  function  is  to  be 
computed. 

Y  is  the  floating  point  value  of  the  error  function  which  has  been 
computed  by  ERF2.  In  SCATRE,  this  result  is  in  the  accumulator  when  control 
is  returned  to  the  user's  program. 


26 
27 
28 

29 

30 
31 
32 
33 

3^ 


CODING  INFORMATION 


ERF2  requires  110   (or  156n )  locations  of  program  35 


storage  and  9  erasable  locations.   ERF2  also  requires  subroutine  EXP.   Execution   36 
of  ERF2  will  take  a  maximum  of  550  cycles.  37 

ERROR  ERF2  may  be  in  error  by  +  2  in  the  eighth  significant  38 

decimal  digit.   The  subroutine  ERF1  calculates  the  error  function  less  accurately  39 
but  is  shorter  and  faster.  ^-0 


REFERENCES  l)  University  of  Michigan  Executive  System  for  the  kl 

IBM  709O  Computer,  September,  1963.  k2 

2)  Ames  Research  Center  ALERF.  SHARE 

Distribution  836.  ^3 

Modified  by  F.  Benard  kk 

March  11,  1965  ^5 
Figure  5«  1.  Continued 


5.3-2.   Library  Subroutine  Abstracts 

ANY  SUBROUTINE  THAT   CAN  BE  USED   IN   FORTRAN  CAN  ALSO  BE  USED   IN   FASTRAN, 

AI-UOI-FDPO-i+3-SR  8/2/63 

F0RTRAN  and  MAD  Double  Precision  Operations 

This  program  enables  FORTRAN  and  MAD  programmers  to  do  multiple 
precision  add,  subtract,  multiply,  and  divide  operations. 
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B1-U0I-ATN2-1^-S  11/2/62 

Fixed  Point  Arctangent 
7090  SCATRE  Program  (minimum  7090) 

To  find  the  principal  value  of  arctan  x  for  a  fixed  point  fraction 
x.   The  binary  point  is  assumed  to  be  located  immediately  to  the  left 
of  bit  1. 

B1-U0I-DATN-51-SR  10/22/63 

Floating  Point  Double  Precision  Arctangent 
FORTRAN,  SCATRE,  and  MAD 

This  program  computes  the  double  precision  principal  value  of 
arctan  x  for  a  double  precision  floating  point  number  x. 

Bl-U0I-DSIN-^7-SR  IO/1/63 

Double  Precision  Floating  Point  Sine  and  Cosine 
SCATRE,  SCAT,  FORTRAN,  and  MAD 

This  program  computes  the  double  precision  floating  point  sine  or 
cosine  of  a  double  precision  floating  point  argument  in  radians. 

B1-U0I-SIN1-9-S  IO/H/62 

Floating  Point  Sine  and  Cosine 
7090  SCATRE  Program  (minimum  7090) 

To  compute  the  floating  point  sine  or  cosine  of  a  floating  point 
angle  9,  using  fixed  point  arithmetic. 

B1-U0I-SIN2-10-S  8/6/62 

Fixed  Point  Sine  and  Cosine 
7090  SCATRE  Program  (minimum  7090) 

To  compute  the  sine  of  an  angle,  9,  using  fixed  point  arithmetic, 


Date: 

5/1/65 

Section: 

5.3.2. 

Page: 

2 

Change : 

1 

Porthos  Manual 

C0-U0I-MIN1-60-SR  k/lO/6k 

Direct  Search  Minimization 
FORTRAN    (709*0 

This  subroutine  finds  local  .minima  of  continuous  functions 
of  N  (N  <  20)  variables. 

C2-UOI-DPPR-53-SR  10/24/63 

A  General  Program  for  Finding  Double  Precision  Floating  Point 
Polynomial  Roots 

This  is  a  complete  or  "canned"  program.   The  user  need  do 
no  programming. 

An  input -output  structure  is  built  around  subroutine  DPRT 
(with  slight  modifications)  to  compute  the  roots  of  a  polynomial 
equation  with  complex  coefficients: 

N  N-l  N-2 

\x     +a2X  +  a3X  +    -  •  •    +  V  +  aN+l   =   0 

where 

a,    =  An    +   iB, 
k         k  k 

A,  ,  B,  are  double  precision  real  numbers. 

k   k 

C2-U0I-DPRT-52-SR  10/2^/63 

Double  Precision  Floating  Point  Polynomial  Root  Finder 
FORTRAN,  SCATRE,  or  MAD 

This  subroutine  coded  in  SCATRE  used  709*+  double-precision 
operations  to  compute  the  roots  of  a  polynomial  equation  with 
complex  coefficients: 

N      N-l 
aiX  +  a2X    +  ' ' '  +  aNX  +  aN+l  =  ° 


where 


a,  =  A,  +  iB, 
k    k     k 


A  ,    B  are  double  precision  real  numbers. 
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C3-U0I-CEI1-21-S 

Complete  Elliptic  Integrals,  Fixed  Point 
7090  SCATRE  Program  (minimum  7090) 
To  compute 

-t/2 
2-3  K(k)    =  2-3  -^1 


•o  Vl-k2  sin2(() 


ll/li^/62 


and 


2~3  E(k)   =  2~3 


■X/2 


Vl-k2  sin2(|)  d(|) 


C3-UOI-ERF1-68-SR 


9/1/62 


Floating  Point  Error  Function  and  Frequency  Function 
SCATRE,  MAD,  FORTRAN 

To  compute  rapidly  the  floating  point  error  function  or 
frequency  function  for  a  given  floating  point  argument. 

C3-UOI-ERF2-69-SR  9/l/62 

Floating  Point  Error  Function 
SCATRE,  MAD,  FORTRAN 

To  compute  more  accurately  than  ERF1  the  floating  point  error 
function  for  a  given  floating  point  argument. 

C3-UOI-FAC1-16-S  10/31/62 

Floating  Point  Factorial 
7090  SCATRE  Program  (minimum  7090) 

To  provide  the  floating  point  value  of  II,  where  I  is  a 
fixed  point  integer,  (i.e.,  I  x  2   )  and  0  <  I  <  33- 

C3-U0I-FAC2-27-SR  2/25/63 

Floating  Point  Factorial 
7090  FORTRAN,  MAD,  or  SCATRE  Program  (minimum  7090) 

To  provide  the  floating  value  of  II,  where  I  is  a 

-17         -35 
fixed  point  FORTRAN  or  MAD  integer,  i.e.,  1x2   'or  1x2"^ 

respectively  and  0  <  I  <  33* 
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D1-U0I-SIM1-30-FR  V3/63 

Integration  by  Simpson's  3  Point  Rule 
F0RTRAN  or  SCATRE  (minimum  TO90) 

This  routine  uses  Simpson's  3  point  rule  to  approximate  the 


rxf 

definite  integral  G  =  V   F(x)dx.   The  error  in  the  approximation  is 


•X 

) 
X 


0 

determined  by  the  relative  difference  that  the  user  supplies  in  the 
calling  sequence. 

D1-UOI-QUA1-57-SR  5A/65 

Evaluation  of  One-Dimensional  Definite  Integrals  by  Mechanical 
Quadrature, 

SCATRE,  MAD  and  FORTRAN  Programs 

A  great  variety  of  one-diemnsional  integration  formulas  may  be 
written  in  the  form 

b  N 

{      F(x)  dx  =  E   Ak  F(xk)  +  R  . 
a  k=l 

This  routine  allows  rapid  and  efficient  evaluation  on  integrals  by 
a  variety  of  methods. 
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D2-U0J-ADM3~36-SR  5/30/63 

^•th  Order  Adams -Moult  on  Integrator 

To  integrate  a  set  of  N  first  order  total  differential 
equations^  using  an  Adams -Moult on  Uth  order  difference  method. 

D2-U0I-DRK1~^~SR  8/2O/63 

Double  Precision  Floating  Point  Runge  Kutta 
SCATRE  Only 

This  program  integrates  a  set  of  N  simultaneous,  first  order, 
differential  equations  in  double-precision  floating  point  arithmetic, 

D2-U0I-N0R1-56-5R  8/19/6U 

Floating-Point  Nordsieck-Method  Integrator 
FORTRAN,  MAD  and  SCATRE 
709'+  SCATRE  program 

The  system  of  equations 

dy_t  =  f.  (x,  yL,  Y2,  ...,  y.)  i  =  1,   2,  ...,  M 

dx 

is  integrated  by  approximating  each  y  by  a  polynomial  -  -  here 

i 
taken  to  be  of  fifth  degree  in  x. 

The  derivatives  f ,  are  evaluated  by  a  closed  auxiliary 

subroutine  which  must  be  provided  by  the  user. 

D2-U0I-RKY1-.17-S  10/30/62 

Fixed  Point  Runge-Kutta 
70Q0  SCATRE  Program  (minimum  7090) 

To  solve  a  set  of  N  simultaneous,  first  order,  ordinary 
differential  equations  in  fixed  point  arithmetic. 

D2-U0I-RKy3-20-S  ll/lU/62 

Floating  Point  Runge-Kutta 
709O  SCATRE  Program  (minimum  7090) 

To  solve  a  set  of  N  simultaneous,  first  order,  ordinary 
differential  equations  in  floating  point  arithmetic. 


■ 
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F^-UOI-DNVl-ol-SR  1/30/ 6k 

Double  Precision  Matrix  Inversion  with  Accompanying  Solution  of 
Linear  Equations  and  Evaluation  of  Determinant. 
FORTRAN  and  SCATRE  (709^) 

This  subroutine  solves  in  double  precision  the  matrix  equation 
AX=B,  where  A  is  an  NxN  coefficient  matrix  and  B  is  a  matrix  of 
constant  column  vectors.   This  program  cannot  be  used  with  FORTRAN 
source  programs  which  compute  the  matrices  A  and  B  by  using 
statements  with  a  D  in  column  1. 

FI+-UOI-IWI-3U-FR  5/8/63 

FORTRAN  and  SCATRE  (7O9A) 
Matrix  Inversion  with  Accompanying  Solution  of  Linear  Equations 

This  subroutine  solves  the  matrix  equation  AX  =  B, 
where  A  is  a  square  coefficient  matrix  and  B  is  a  matrix  of 
constant  vectors.   A   is  also  obtained;  indeed,  inversion  may  be  the 
sole  aim  in  a  particular  usage.   The  determinant  of  A  is  also  available. 

F1+-U0I-LSQ1-31-FR  5/3/63 

FORTRAN 
Least  Square  Polynomial  Fit 

Given  a  set  of  N  values  of  an  independent  variable  X,  with 
associated  weights  W,  and  one  or  more  sets  of  corresponding  values 
of  Y,  the  routine  determines  the  coefficients  of  the  polynomials ) 
of  degree  M-l  which  gives  the  best  fit  in  the  least  squares  sense 
to  the  set(s)  of  Y.   In  addition,  the  residuals,  the  weighted  sum(s) 
of  squares  of  residuals,  and  the  error  matrix  are  computed. 

F1+-UQI-LSQ2-32-FR  5/3/63 

A  General  Program  for  the  Least  Square  Polynomial  Fit 

This  is  a  complete  or  "canned"  program.   The  user  need  do  no 
programming. 

An  input-output  structure  with  various  options  is  built  around 
subroutine  LSQ1  for  the  determination  of  the  coefficients  of  the 
polynomial  of  specified  degree  which  best  fits,  in  the  least  squares 
sense,  the  supplied  data. 
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fU-uoi-snvi-67-sr  3/22/65 

Matrix  Inversion  with  Accompanying  Solution  of  Linear  Equations 
FORTRAN  and  SCATRE  (709^) 

This  program  uses  Jordan's  method  to  solve  the  matrix 
equation  AX  =  B,  where  A  is  a  square  coefficient  matrix  and 
B  is  a  matrix  of  constant  vectors . 
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G2-UOI-SMIRK-58-FR  V3/6^ 

Smirnov-Kolmogorov  D  Statistic  (Goodness  of  Fit) 
709U  FORTRAN  Program 

This  program  computes  and  prints  the  Smirnov-Kolmogorov  D 
Statistic  for  goodness  of  fit  to  a  normal  distribution. 

G5-UOT-NDEV-59-SR  k/l5/6k 

Pseudo -Random  Normal  Deviate  Generator 
FORTRAN  and  SCATRE  (7090) 

This  program  uses  inverse  interpolation  to  get  a  normal 

deviate  (mean-  zero,  standard  deviation -one)  from  a  uniformly 

-k 

distributed  pseudo -random  number.  The  error  is  less  than  ^.10 

G5-UOI-RAN1-35-SR  5/15/63 

Generate  Floating  or  Fixed  Point  Numbers  Pseudo -Uniformly 
Distributed  on  [0,l). 
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H0-U0I-CPP1-50-FR  10/15/63 

Complete  Program  -  FORTRAN  or  Relocatable  Binary, 

This  is  a  complete  computer  program  (the  user  need  do  no 
programming)  to  carry  out  the  calculations  for  Critical  Path 
Programming,  as  described  by  James  E.  Kelley,  Jr.,  of  Mauchley 
Associates,  in  "Critical  Path  Planning  and  Scheduling:   Mathematical 
Basis",  Operations  Research,  Vol,  9,  No.  3,  1961,  pp.  296-320. 

A  great  deal  of  flexibility  has  been  built  into  the  program. 
Various  types  of  computer  runs  can  be  made,  and  alternative  forms  of 
output  are  obtainable. 
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J5-UOI-PLOT-33-RX  5/2/63 

Plot  Graphs  on  the  Off -Line  Printer 

Rapid  machine  plotting  of  numeric  information  for  use  with 
FORTRAN,  SCATRE  or  MAD  calling  programs.   The  resulting  graph  is 
copied  onto  any  decimal  output  tape  for  subsequent  off-line 
printing  or  punching. 

J5-U0I-SCP2-28-SR  3/6/63 

FORTRAN  Axes  and  Point  Plotter 
(7090  with  7^-0  Output  Recorder  and  7  index  registers) 

To  plot  axes  and  points  on  the  7^-0  Output  Recorder  from  floating 
point  or  fixed  point  information  in  core. 

J5-UOI-SCP3-15-SR  3/6/63 

General  Alphanumeric  Cathode  Ray  Display 

To  disply  alphanumeric  messages  on  the  7^-0  Output  Recorder,, 
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L1-U0I-SVC1-71-SR  3/25/65 

Write  Standard  System  Records 
SCATRE 

This  routine  saves  up  to  ten  blocks  of  core  memory  as  a 
Standard  Binary  System  Record  on  a  specified  tape  unit  or  a 
specified  disk  cylinder, 

L1-U0I-GTLD1-72-SR  5/29/65 

Use  System  Loader  during  Execution 
MAD,  FORTRAN  and  SCATRE 

This  subroutine  uses  a  flexible  parameter  control  to  load 
programs  generated  either  before  or  during  execution  time,  or 
to  complete  the  loading  of  a  partially  loaded  Ping-Pong  record. 
The  loaded  programs  are  then  executed. 

L1-U0I-GTLD2-73-SR  5/29/65 

Use  System  Loader  during  Execution 
MAD,  FORTRAN  and  SCATRE 

This  subroutine  will  load  a  program  generated  either  before 
or  during  execution  from  an  execution  tape  and  then  execute  it. 
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M2-U0I-CNV1-18-S  11/5/62 

Fixed  Point  Binary  Fraction  to  BCD  Conversion 
7090  SCATRE  Program  (minimum  7090  +  7  index  registers) 

To  convert  a  fixed  point  binary  fraction  f  to  BCD  characters, 

where 

-35  -35 

-1  +  2  DJ  <   f  <  1  -  2  J  . 

M2-U0I-CNV2-U8-SR  9/2^/63 

Convert  BCD  Characters  to  a  Double  Precision  Floating  Point  Number 
SCATRE,  F0RTRAN,  and  MAD 

M2-UOI-CNV3-55-SR  V3/64 

One  Word  BCD  to  Column  Binary  Conversion  Routine 
SCATRE,  MAD  and  FORTRAN  (minimum  7090) 

To  permit  Hollerith  information  to  appear  in  a  binary  card. 

M2-U0I-DAT1-62-SR  9/30/61+ 

Conversion  of  SYSDAT  to  standard  form. 
SCATRE,  MAD  and  F0RTRAN  II  (709U) 

Converts  date  in  System  location  SYSDAT  to  a  form  with  the 
name  of  the  month,  the  day  of  the  month,  and  the  four  digits  of 
the  year, 

M2-U0I-DCNV-^-SR  8/19/63 

Convert  a  Double  Precision  Floating  Point  Number  to  BCD  Characters 
SCATRE,  F0RTRAN,  MAD 

M2-U0I-SPG-66-SR  2/16/65 

Spread  and  Gather  BCD  data  internally  in  core, 
FORTRAN,  MAD  and  SCATRE 

Convert  a  string  of  BCD  characters  in  core  storage  according  to 
a  format  specification  and  assign  the  results  to  a  given  list  of 
variables. 

Convert  a  given  list  of  variables  according  to  a  format 
specification  and  store  the  resulting  BCD  string  in  a  given  region 
in  core  storage, 
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N2-U0I-DYND-5^-SR  H/19/63 

Dynamic  Diagnostic  Routine 
FORTRAN  or  SCATRE 

This  routine  allows  the  user  to  obtain  a  dump  of  machine 
registers  and  contents  of  a  block  of  core  storage,  with  control 
being  returned  to  the  user  after  the  dump.   The  dump  can  be 
obtained  in  BCD,  octal  integers,  decimal  integers  (FORTRAN  or 
SCATRE),  or  floating  point  (E  or  F  field). 

N2-UQI-TDP1-6VSR  12/2/6U 

Binary  or  BCD  Tape  Dump  Routine 
SCATRE  (7094) 

This  subroutine  provides  a  very  general  tape  dump  by  allowing 
prepositioning  of  the  tape  and  the  dumping  of  any  number  of  files 
and  records. 

N2-U0I-TDP2-61+-SR  I2/2/65 

Binary  or  BCD  Tape  Dump  Routine 
MAD  and  FORTRAN  (7O9U) 

This  subroutine  serves  only  as  a  link  between  programs 
written  in  MAD  or  FORTRAN  and  the  library  subroutine  N2-UOI-TDP1-63-SR. 
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Q1-UOI-FPT1-65-SR  12/3/64 

Floating  Point  Trap  Processor 
MAD,  SCATRE  and  FORTRAN  (709^) 

To  provide  for  complete  programmer  control  over  the  processing 
of  floating  point  traps. 
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The  following  abstracts  describe  subroutines  that  are  briefly  discussed 
in  the  MESS  (Michigan  Executive  System  Subroutine)  writeup  entitled  "Temporary 
Subroutine  Library",  obtainable  from  the  Librarian,  165  ERL.   The  Department  of 
Computer  Science  is  incorporating  write-ups  of  these  subroutines  into  the  Subroutine 
Library  described  above. 

ATM      Floating  Point  Principal  Valued  Arctangent 

To  compute  the  principal  value  of  arctan  (x)  for  the  floating  point 
argument  x. 

ATN1      Floating  Point  Single  Valued  Arctangent 

To  compute,  in  the  range  of  0  to  2fl,  the  single  value  of  arctan  (y/x) 
for  floating  point  arguments  x  and  y. 

BCDBN     One  Word  BCD  to  Binary  Conversion 

MBCDBN    To  convert  one  BCD  word  into  the  equivalent  binary  integer. 

BEBCD     One  Word  Binary  to  BCD  Conversion 

To  convert  a  binary  integer  into  its  BCD  equivalent,  which  is  right 
justified  and  filled  in  with  leading  zeroes.   The  primary  use  of  this 
subroutine  is  in  modifying  formats  with  integers  read  in  as  data. 

BSL1      Bessel  Functions 

To  compute  Bessel  functions  J(n,x),  l(n,x),  Y(n,x),  K(n,x), 
exp  (-x)  l(n,x),  and  exp(x)  K(n,x),  for  real  values  of  x  >  0  and  for 
integral  values  of  n,  0  <  n  <  5j  where  n  is  the  order  of  the  desired 
Bessel  function. 


CMEQ,      Solution  of  Complex  Equations 

To  solve  the  system  of  complex  linear  equations  (A  +  iB)  Z  =  C  +  iD 
for  the  unknown  vector  Z.  A  scaled  determinant  |A  +  iB  is  also 
evaluated.   A,  B,  C*  and  D  are  separate  matrices.   A  is  an  n  x  n 
matrix  of  real  coefficients,  B  is  an  n  x  n  matrix  of  imaginaries,  C 
is  a  vector  of  reals  and  D  is  a  vector  of  imaginaries.   Both  C  and  D 
are  of  dimension  n. 
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CMSQRT    Complex  Square  Root 

To  compute  the  square  root  of  a  complex  number. 


COMPZ 
ZC0MPZ 


DPFA 
DPFM 
DPFDV 


Symbol  Manipulation 

COMPZ  packs  a  sequence  of  left- justified  BCD  characters  into 
full  word  (6  characters  per  word)  BCD  form.   If  the  last  word  is 
incomplete,  it  is  left-justified  with  trailing  blanks. 

ZCOMPZ  is  the  same  as  COMPZ,  except  that  the  last  word,  if 
incomplete,  is  right-justified  with  leading  zeroes. 

Double  Precision  Floating  Point  Arithmetic 

To  perform  double  precision  arithmetic  operations  on  double 
precision  numbers  which  are  in  floating  point  form. 


EIGN      Eigenvalues  and  Eigenvectors 

To  compute  all  eigenvalues  and/or  eigenvectors  of  a  real 
symmetric  matrix  by  the  Jacobi  method.   The  elements  of  the  matrix 
must  satisfy  the  condition: 


where 


n  „ 

S  =     £    (a.  ./a  )  <  2 
m     .  .  ,     ij'  m   — 


a  -   min  I  a.  .   4-    0. 
m       ■   ij  ■  ' 
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EL0G      Floating  Point  Logarithm 

To  compute  ln(x)  for  floating  point  argument  x  >  0. 


EXP 


Exponentiation  -  The  Base  e 

To  raise  e  to  the  floating  point  exponent  x. 


Date : 

5/1/^5 

Section: 

5-3.2. 

Page: 

23 

Change : 

1 

Port ho s 

Manual 

EXP1      Exponentiation  -  Integer  Base  and  Integer  Exponent 
To  raise  an  integer  base  to  an  integer  power. 

EXP2      Exponentiation  -  Floating  Point  Base  and  Integer  Exponent 
To  raise  a  floating  point  number  to  an  integer  power. 

EXP3      Exponentiation  -  Floating  Point  Base  and  Floating  Point  Exponent 
To  raise  a  floating  point  number  to  a  floating  point  power. 


HAS1 
HAS1S 


Harmonic  Analysis 

Given  a  set  of  points  y.  (i  =  1,  2,    ..*,   k-l)  corresponding  to 

a  set  of  equally  spaced  arguments  x.,  this  subroutine  computes  the 

coefficients  a..,   b . ,  c,    and  d.  of  the  following  series: 
1   ill 

f(x)  =  a  +  Z  a  cos  nx  +  b   sin  nx 
on  n 

f(x)  =  a  +  E  c   sin  (nx  +  d  ) 
o      n  n 

The  function  f (x)  is  assumed  to  be  periodic  of  period  2rt  with  y  =  y  ,  « 


IEF1      Incomplete  Elliptic  Integrals 

Given  the  amplitude  A  and  the  modulus  B,  to  evaluate  the  incomplete 
eliptic  integrals  of  the  first  and  second  kind. 


I0SET 
I0PAR 
I0END 


Auxiliary  Input/Output  Procedure  for  MAD 

To  provide  a  means  of  generating  any  series  of  MAD  statements 
within  an  input/output  list,  making  possible  complete  generality 
for  input/output . 
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NDRN1     Normally  Distributed  Random  Number  Generator 

To  produce  a  random  number  such  that  a  set  of  such  numbers  will 
have  a  specified  mean  and  standard  deviation. 


0FTRAC 
0NTRAC 


Subroutine  Tracing 

0FTRAC  turns  on  the  switch  used  in  conjunction  with  $  SUBTRACE. 
0NTRAC  turns  if  off.   (see  section  6.2.9,4, ) 


PL0T      Off -Line  Printer  Plotting 

To  provide  rapid  machine  plotting,  on  the  off-line  printer,  of 
numeric  information;  for  use  with  MAD,  SCATRE,  or  FORTRAN  calling 
programs. 

RAM2      Uniformly  Distributed  Random  Number  Generator 

To  produce  a  random  number  in  the  interval  (0,l),   A  set  of 
random  numbers  generated  by  RAM2  has  a  uniform  distribution. 


RKDEQ,     Runge-Kutta  Solution  of  Differential  Equations 

Solves  a  system  of  n  first  order  ordinary  differential  equations 
by  the  Runge-Kutta  fourth-order  method.  The  equations  are  assumed  to 
be  of  the  form 


^  -  f   (x  v 


'  yn) 


SELPGM 
SEQPGM 


dn 

~f  =  fn  (x,  Y  ,    ..,,  y  ) 

dx 

where  x  is  the  independent  variable- 

Calling  Subroutines  for  Ping -Pong  Segments 

SEQPGM  is  used  in  Ping-Pong  to  call  the  next  core  in  sequence. 
SELPGM  is  used  to  select  one  of  the  cores  as  the  next  core  to  be 
executed. 
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SETPLT 
USTPLT 


SIN 
C0S 


Plot  Setup  Subroutines 

This  subroutine  is  designed  to  be  used  with  the  PL0T  subroutine. 
The  PL0T  subroutine  produces  graphs  of  the  quantities  given  it  by 
the  user.   It  is  a  powerful  and  versatile  tool;,  but  is,  as  a  result,, 
rather  complicated  and  clumsy  to  use.   It  requires  that  the  user 
make  four  entries  to  the  subroutine  with  a  total  of  l6  arguments, 
and  in  order  to  determine  the  values  for  these  arguments  the  user 
must  do  considerable  precalculation.   The  user  must  also  know  the 
range  of  answers  in  advance  so  he  can  set  the  maximum  and  minimum 
values  for  the  abcissa  and  for  the  ordinate.   This  is  all  work 
that  can  be  done  by  the  computer,  and  SETPLT  and  USTPLT  do  it. 

Floating  Point  Sine  and  Cosine 

To  compute  cos(x)  and  sin(x)  for  a  floating  point  argument  x. 


SQRT      Square  Root 

To  compute  the  square  root  of  the  floating  point  number  x  >  0< 


TAB       Single  Table  Interpolation 

Given  the  order  of  an  independent  argument  x,  perform  a  kth 
order  interpolation  on  a  table  of  (x.«  y. )  values  for  the 
corresponding  dependent  argument  y. 


TANH      Hyperbolic  Tangent 

To  compute  the  hyperbolic  tangent  of  a  floating  point  number, 

TRAITS  Square  Matrix  Transposition 

To  transpose   a  square  matrix. 


TRAITS  1         Arbitrary  Matrix  Transposition 

To  transpose  a  matrix  of  arbitrary  dimensions,  i.e., 
m  x  n  where  m  and  n  are  not  necessarily  equal. 
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UITR1     Single  Iteration 

Given  x  =  f(x),  to  find  a  value  of  x  within  a  given  epsilon 
of  error.   If  f(x)  contains  one  iteration,  this  subroutine  is  not 
recommended. 

UITR2     Single  Iteration  -  Interval  Halving 

Given  f(x)  =  0,  to  find  a  value  for  x,  within  a  given  error, 
in  a  specified  interval  (a,b). 

UITR3     Simultaneous  Iteration 

Given  a  set  of  simultaneous  equations  of  the  form 

A-.  =  I  -|  1.x  ,  x  ,  •  •«,  x  ) 

0 

Xn  =  fn  (\>    X2>    '"'    *r)' 

to  find  the  values  of  x.  within  a  given  margin  of  error. 

ZER2      Zeroes  of  a  Complex  Polynomial 

To  find  the  zeroes  of  a  polynomial  with  complex  coefficients 
which  is  of  arbitrary  degree,  evaluating  both  real  and  complex 
zeroes.   Roots  of  multiplicity  greater  than  two  are  generally 
obtainable. 


ZER0 
SPRAY 


Store  Constant 

ZERO  stores  zero  in  an  area  of  core,  and  SPRAY  stores  a  given 
constant  in  an  area  of  core. 
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5 • 3» 3*   Tape  Subroutine  Library 

The  following  list  contains  the  names  of  subroutines  presently  available 
on  the  PORTHOS  System  library  tape.   When  Department  writeups  exist  for  a  particu- 
lar subroutine,  the  name  will  be  identified  by  a  number.   This  number  should  be 
used  when  asking  for  the  writeup  from  the  Librarian,  165  ERL.   Those  subroutines 
with  no  identifying  number  are  briefly  described  in  the  MESS  writeup,  obtainable 
from  the  Librarian. 


ATAN 

ATN1 

BCDBN 
MBCDBN 

BNBCD 

BSL1 

CMEQ 

CMSQRT 

COMPZ 
ZCOMPZ 

DATAN 

DATAN2 

DATN 

DAT1 

DEX1 
DEX2 
DEX110 

DLN1 
DLN12 

DPFA 

DPFM 

DPFDV 

DSIN 
DCOS 
DSIN1 
DC0S1 

DSQRT 
DSQRT1 


51 

62 
kl 

k2 


hi 


39 


EIGN 

ELOG 

ERF1 

68 

ERF1FR 

ERF2 

69 

EXP 

EXP1 

EXP2 

EXP3 

HAS1 

RAS1S 

IEF1 

IOSET 

IOPAR 

IOEND 

NDRN1 

N0R1IN 

56 

N0R1NM 

N0R1RV 

N0R1R1 

0FTRAC 
0NTRAC 

PL0T 

RAM2 

RKDEQ 

SELPGM 

SEQPGM 
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SETPLT  TDP2FN  6k 

USTPLT  mTY,11T> 

TDP2MD 

spg  66  TRAKS1 

sort  UITR1 

suci  71  UITR2 

TAB  UITE3 

TANK  ZER2 

TDP1B  63  ZEE° 

TDP1J)  SPRAY 
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5.1*.   The  SHARE  Library  and  Its  Use 

5.U.I.   General 

In  April,  1955*  the  group  of  users  of  IBM  series  700  (later 
7000)  machines  banded  together  in  a  group  called  SHARE,  whose  purpose 
was  to  provide  an  organ  for  the  dissemination  of  library  routines  and  other 
codes  among  users.   This  organization  set  up  procedures  and  standards  for 
reproducing  and  distributing  card  decks,  listings,  descriptions,  etc.,  about 
these  codes.   This  material  is  all  classified  in  convenient  form  for  consulta- 
tion and  use.   Each  routine  is  classified  according  to  a  coded  scheme  which 
indicates  the  nature  of  the  routine  (see  section  5-2.)  and  each  program  is 
abstracted.   Copies  of  these  abstracts  in  classification  scheme  order  are 
available  for  inspection  in  Room  l68  ERL,  the  Consulting  Office  (Room  111b), 
and  the  Department  of  Computer  Science  Library. ,  The  main  body  of  descriptive 
material  is  filed  in  distribution  (i.e.,  temporal)  order  and  is  kept  in 
Room  l68  ERL,  where  it  is  available  for  inspection. 
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5.4.2.   Procedure  for  Using  SHARE  Materials 

The  Department  of  Computer  Science  acts  as  the  central  agent  for 
acquisition  and  distribution  of  all  SHARE  material.   The  procedure  for  using 
this  material  is  as  follows: 

a)  The  user  should  first  peruse  the  abstracts  which,  being  filed 
in  library  classification  order,  give  an  immediate  indication 
of  that  group  of  codes  or  routines  pertinent  to  the  user's 
interest. 

b)  Each  code  in  the  abstract  is  cross  indexed  with  the  distribution 
number  in  the  main  30^000  page  SHARE  Library.   The  detailed  writeups 
for  those  codes  of  interest  can  then  be  examined  in  this  library. 

c)  If  any  of  the  actual  card  decks  or  routines  are  to  be  used,  the 
next  step  will  depend  upon  whether  or  not  that  deck  has  been 
previously  ordered  by  the  Department. 

d)  If  the  material  can  be  found  within  the  Department ,  the  abstract 
book  will  have  an  H  printed  opposite  the  descriptive  abstract, 
and  the  Cardex  File  kept  in  Room  l68,  filed  in  library  classifi- 
cation order,  will  contain  a  card  for  each  routine  which  has 
already  been  obtained,   If  the  routine  already  exists  within  the 
Department,  a  copy  of  the  card  deck  can  be  obtained  from  the 
Librarian,  Room  165,  and  a  copy  of  the  printed  material  pertaining 
to  this  routine  can  be  inspected  in  Room  l68  ERL.   If  the  routine 
happens  to  exist  on  tape,  the  user  may  supply  a  tape  to  the 

7094  Operations  Supervisor,  Room  111c  ERL,  and  the  routine  will 
be  copied  onto  this  tape,  or  upon  proper  request,  the  routine 
will  be  punched  on  cards. 


Date: 

5/1/65 

Section: 

5.4.2. 

Page: 

1 

Change : 

1 

Port ho s 

Manual 

e)  If  the  routine  has  not  been  previously  ordered  by  the 
Department,  the  user  should  fill  in  the  form  provided, 
SHARE  Library  Materials  Request,  and  return  it  to 
the  secretary  in  Room  l68  ERL*.   The  routine  will  be 
ordered  from  the  SHARE  Distribution  Agency  and  the 
prospective  user  will  be  notified  of  its  arrival. 
At  this  time,  the  procedure  described  above  in 
d)  can  be  followed. 

*  At  present  only  the  3000  series  of  SHARE  can  be  ordered.   Any  other  series 
can  be  obtained  only  if  it  has  been  previously  ordered  and  is  now  on  file 
within  the  Department. 
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5.4. 3»   Concerning  the  Length  of  Time  Necessary  to  Obtain  SHARE  Library  Materials 

It  should  be  realized  that  the  SHARE  Distribution  Agency  (maintained 
for  SHARE  by  IBM)  processes  an  enormous  amount  of  material  in  connection  with 
SHARE'S  policy  of  distributing  library  routines  to  all  SHARE  members.   This 
agency  distributes  approximately  300,000  sheets  of  paper  and  2  and  1/2  million  cards 
per  month.   It  is  quite  obvious  that  this  is  an  enormous  taks  and  that  it  takes 
time  within  the  SHARE  Distribution  Agency.   This  agency  has  set  up  a  mechanical 
procedure  for  these  distributions  which  attempts  to  achieve  efficiency.   It 
involves  such  things  as  the  submitting  of  coded  and  keypunched  order  cards,  etc. 
Experience  has  shown  that  the  transit  time  in  the  U.S.  mails  plus  the  time 
necessary  for  SHARE  to  process  requests  add  up  to  as  much  as  two  weeks  from 
the  time  at  which  a  request  is  initiated  until  the  material  is  all  in  hand. 
This  time  has  been  known  to  grow  to  at  least  six  weeks  in  those  cases  in  which 
the  program  is  of  an  unusual  nature,  involves  the  transfer  of  magnetic  tapes, 
or  is  in  a  category  for  which  there  are  infrequent  requests.   It  should  be 
stressed  that  this  procedure  with  which  the  Department  has  to  deal  and  over 
which  it  has  no  control  is  a  somewhat  mechanical  one,  and  hence,  any  appeal 
for  special  treatment  or  extra  speed  has  little  effect.   The  requests  which 
are  submitted  go  through  a  long  pipeline.   Special  telephone  calls,  in 
addition  to  being  troublesome  and  expensive,  are  not  appreciated  by  the 
SHARE  Distribution  Agency  and  often  serve  only  to  confuse  the  progress  of 
the  material  through  the  pipeline. 
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6.2.   Execution  Coordination  Routines 
6.2.1.   General 

The  Execution  Coordination  Routines  are  those  system  subroutines, 
executive  routines  and  processors  which  remain  in  the  low  core  area,  below 
the  system  origin  during  execution  time.   (For  safety  the  user  of  absolute 
programs  should  not  0RG  below  5500   ).   This  area  is  memory  protected 
except  during  the  operation  of  the  Execution  Coordination  Routines  themselves, 
during  the  operation  of  the  system  Monitor,  during  the  operation  of  the  system 
translators,  and  during  the  execution  of  a  RELINQUISH  (see  section  ^.3*) 
problem.   Even  when  not  memory  protected,  the  routines  will  be  there  initially 
and  will  be  available  for  use  unless  destroyed. 

The  sense  indicators,  all  index  registers,  the  index  register 
mode  and  the  trapping  mode  will  be  preserved  for  the  user  by  these  routines. 
The  accumulator  and  MQ  registers  will  not  be  preserved  and,  indeed,  will 
in  some  cases  contain  output  to  the  user. 

A  large  number  of  the  Execution  Coordination  Routines  will  be 
devoted  to  expediting  input  and  output.   These  routines  are  not  to  be 
confused  with  subroutines  available  to  the  user  from  the  library  which 
will  perform  numerical  conversion  on  the  user's  data.   Those  conversion 
routines  themselves  make  use  of  the  Execution  Coordination  Routines. 


Date : 

5/1/65 

Section : 

6.2.1. 

Page: 

1 

Change : 

1 

Porthos 

Manual 

6.2.2.2.   SYSW0T:   Write  Output  Tape 

The  system  subroutine  SYSW0T  is  entered  by  a  calling  sequence 
of  the  form: 

TSX    SYSW0T,4 
TIX    FWA„L 
Normal  Return   -  -  - 

The  BCD  line  image  beginning  in  location  FWA  and  continuing  through  location 
FWA+L-1  will  be  written  on  the  system  output  tape.   A  maximum  of  133  BCD 
characters  (even  though  L  implies  more)  will  be  used,  from  left  to  right, 
the  first  of  whicn  will  be  detached  for  carriage  control.   When  L  =  0 
a  blank  line  will  be  output. 

The  first  character  of  each  record  determines  the  carriage  control 
for  printed  records.   This  character  is  detached  from  the  remainder  of  the 
record  and  is  not  printed.   The  code  for  the  carriage  control  character  under 
the  PORTHOS  system  is  as  follows: 

Left -most  character 
for  pre-print  skip 


Single  space 
Double  space 

Triple  space 

Sheet  eject  (skip  to  next  page) 

Skip  to  next  half  page 

Skip  to  next  quarter  page 

Skip  to  next  sixth  page 


blank  or  + 
0 

1 
2 
h 
6 


Date : 

5/V65 

Section: 

6.2.2. 

Page : 

3 

Change : 

1 

Port  ho  s 

Manual 

The  1^-01  Peripheral  Processor  Program  operates  in  the  following 
manner  for  the  above  control  characters: 

blank  -  Spaces  one  line  before  printing. 

0  -  Spaces  two  lines  before  printing. 

-  -  Spaces  three  lines  before  printing.   The  blank,  0, 
and  -  are  changed  to  J,  K,  and  L  respectively 
for  proper  carriage  movement  within  the  1^01. 

1  -  Immediate  page  eject;  skipsto  channel  1. 

2  -  Skips  to  channel  2  and  spaces  one  line  before  printing. 

(Note:  The  spaces  following  the  skips  are  necessary  for 
proper  positioning  since  the  carriage  tape  can  have  only 
one  punch  on  each  horizontal  line). 

k   -   Skips  to  channel  k   and  spaces  two  lines  before  printing. 

6  -  Skips  to  channel  6  and  spaces  three  lines  before  printing. 

All  other  characters  are  simply  moved  into  a  pre-set  control 
carriage  order  to  allow  for  additional  spacing  required  by  special  jobs. 
Pre-print  single  spacing  is  not  possible.   A  discussion  of  the  carriage 
tape  channels  mentioned  above  may  be  found  in  Reference  Manual,  IBM  1^-01 
Data  Processing  System,  A24-l403-5. 

6.2.2.3.   SYSPCB:   Punch  Card  Binary 

The  system  subroutine  SYSPCB  is  entered  by  a  calling  sequence 
of  the  form: 

TSX    SYSPCB,  k 
TIX    FWA,,L 
Normal  Return    -  -  - 

The  column  binary  card  image  beginning  in  location  FWA  and 
continuing  through  location  FWA+L-1  will  be  written  on  the  system  output 
tape.   A  maximum  of  960  bits  (26  words  and  2k   bits)  will  be  used,  from 
left  to  right.   The  7  and  9  bits  in  column  1  are  not  supplied  by  SYSPCB. 


Date : 

5/1/65 

Section: 

6.2.2. 

Page : 

k 

Change : 

1 

Port ho s 

Manual 

If  the  card  is  to  be  read  back  in  as  a  binary  card  the  user  must  provide 
them  in  the  card  image.   If  L  =  0,  one  word  will  actually  be  punched; 
if  L  >  27,  only  the  first  960  bits  (26  words  and  2k   bits)  will  actually  be 
punched,  the  remainder  being  ignored. 

6.2.2.U.   SYSPCD:   Punch  Card  Decimal 

The  system  subroutine  SYSPCD  is  entered  by  a  calling  sequence 
of  the  form: 

TSX   SYSPCD, 4 
TIX   FWA,,L 
Normal  Return   -  -  - 
The  BCD  card  image  beginning  in  location  FWA  and  continuing 
through  location  FWA+L-1  will  be  written  on  the  system  output  tape.   A 
maximum  of  80  BCD  characters  (13  full  words  and  the  12  left-most  bits 
of  the  l^th  word)  will  be  punched  into  the  card.   (A  word  count  L  of  zero 
will  result  in  a  blank  card). 

6.2.2.5.   SYSPPD:   Print  and  Punch  Decimal 

The  system  subroutine  SYSPPD  is  entered  by  a  calling  sequence 
of  the  form: 

TSX   SYSPPD,^ 
TIX   FWA,,L 
Normal  Return   -  -  - 
The  BCD  image  beginning  in  location  FWA  and  continuing  through 
location  FWA+L-1  will  be  written  on  the  system  output  tape.   A  maximum  of  8l 
BCD  characters  will  be  used  in  punching.   The  first,  leftmost,  character 
will  be  detached  for  carriage  control  with  the  same  action  as  that  described 
under  section  6.2.2.2.,  SYSW0T.   The  remaining  characters  will  be  both  printed 
and  punched  starting  with  print  position  1  and  card  column  1.   A  word  count  L 
of  zero  will  generate  both  a  blank  line  and  a  blank  card.   If  the  word  count  L 
exceeds  ik,    then  punching  is  as  described  above,  but  15  words  are  printed. 
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6.2.4.   Routines  for  Access  by  the  User  of  Non-Restricted  Tape  Units 

The  following  routines  may  be  used  by  the  user  for  accessing  all 

input-output  units  except  tnose  tapes  restricted  by  the  system  for  its  own  use. 
The  calling  sequence  for  the  routines  in  this  section  has  the 

form: 

TSX   SYSxxx,4 
TIX   E0R,,UNIT 
TIX   LI0CL,,ETT 
TIX   E0F,F,RTT 
Normal  Return   -  -  - 

The  names,  SYSxxx,  of  the  subroutines  appear  below  with  their 

descriptions. 

6.2.4.1.  SYSRUD:   Read  Unit  Decimal 

A  read-select-decimal  (RDS)  of  the  specified  unit  is  initiated,  if 
access  to  this  unit  is  permitted  by  the  system. 

6.2.4.2.  SYSRUB:   Read  Unit  Binary 

A  read-select-binary  (RDS)  of  the  specified  unit  is  initiated,  if 
access  to  this  unit  is  permitted  by  the  system. 

6.2.4.3.  SYSWUD:   Write  Unit  Decimal 

A  write-select-decimal  (WRS)  of  the  specified  unit  is  initiated, 
if  access  to  this  unit  is  permitted  by  the  system. 

6.2.4.4.  SYSWUB:   Write  Unit  Binary 

A  write-select-binary  (WRS)  of  the  specified  unit  is  initiated, 
if  access  to  this  unit  is  permitted  by  the  system. 

6.2.4.5.  The  Parameter  UNIT 

The  parameter  UNIT  is  the  unit  specification  and  may  not  be  an  absolute 
unit  address;  that  is,  it  must  be  defined  as  a  logical  tape  number. 
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The  use  of  I/O  units  is  closely  tied  to  the  permission  granted 
on  the  Problem  Specification  and  the  system  monitor  control  cards  which 
appear  in  a  job  deck. 

Only  the  following  tape  numbers  may  be  used  as  utility  tapes. 

2 

3 
4 

9 

10* 
The  pertinent  system  tapes  correspond  to  logical  tape  numbers 
as  follows : 

6  -  Output  Tape 

7  -  Card  Input  Tape 
Tapes  1  and  8  are  the  system  master  tapes. 

6.2.4.6.   The  Parameter  LI0CL 

The  parameter  LI0CL  is  the  first  Location  of  the  Input -Output 
Command  List,  under  the  control  of  which  the  data  channel  is  to  operate 
during  the  execution  of  this  select  operation.   It  is  strongly  urged  that 
the  I0CL  transmit  only  one  record.   The  reason  for  this  is  that  the 
system  Bad  Spot  Procedure  must  operate  on  that  assumption,  and  it  is  the 
system  Bad  Spot  Procedure  which  monitors  all  tapes  in  use  to  be  certain 
that  their  quality  remains  high.   Transmission  of  erroneous  information 
can  go  undetected  by  the  system  Bad  Spot  Procedure  if  more  than  one  record 
is  transmitted  by  a  single  select  and  Input-Output  Command  List.  Although 
the  user  may,  with  some  difficulty,  avoid  this  by  use  of  the  RTT  exit  (see 
section  6.2.4.11. ),  notice  of  the  condition  of  the  tape  escapes  the  system- 

Because  of  the  above  considerations,  the  user  is  not  allowed  to  use 
the  channel  command  -  I0CD„ 

Indirect  addressing  is  permitted. 

The  address  of  the  command  must  be  >  SYS0RG  =  IOOOOq  unless  it  is 
non-transmitting.   The  sum  of  the  effective  address  and  the  count  may  not 
exceed  77777o-   A  limit  of  30  commands  (exclusive  of  TCH  commands)  is  imposed, 


*  When  10  is  used  as  $$  comment  card  must  be 
included  to  assure  that  a  scratch  tape  is 
available  on  unit  10. 
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The  command  TCH  may  be  used  to  link  non-consecutive  elements  of  the  list. 

One  of  the  commands  I0RT,  I0CT,  or  I0ST  or  their  non-transmitting 
forms  must  appear  and  is  assumed  to  terminate  the  Input -Output  Command  List. 

In  order  to  use  any  other  channel  commands,  the  user  must  secure 
RELINQUISH  permission  (see  section  U.3.). 

6.2.U.7.   Waiting  for  Transmission  Termination 

Unless  a  unit  is  specified  which  may  not  be  accessed  by  the 
user,  or  an  improper  I/O  command  list  appears  at  LIj#CL,  the  select  will 
be  initiated  and  the  channel  set  transmitting.   Return  is  made  to  the  Normal 
Return  immediately,  without  waiting  for  the  I/O  process  to  terminate. 

If  the  user  is  forced,  or  desires,  to  wait  at  any  point  in 
the  program  for  the  transmission  to  be  completed,  he  can  do  so  by  entering 
another  system  subroutine  which  will  accomplish  the  delay.   Description 
of  this  routine  will  be  deferred  until  section  6.2.5.   Its  calling  sequence 
is,  however,  of  the  form 

TSX   SYST0W, k 
TEC    ,,UNIT 
Normal  Return   -  -  - 

If  it  is  neither  necessary  nor  desirable  to  wait  for  transmission, 
the  user  may  allow  his  program  to  continue  in  parallel  with  the  I/O 
transmission. 

The  returns  E0R,  E0F,  RTT  and  ETT  are  operative  whether  the 
user's  program  is  waiting  or  not. 

6.2.4.8.   E0R:   End-of -Record 

A  normal  end-of -record  condition  which  occurs  on  the  unit 
specified  will  cause  a  CPU  trap  and  control  will  be  transferred  to 
the  system  trap  processor. 

If  E0R  =  0,  the  trap  processor  will  return  immediately  to 
continue  operation  from  the  point  of  interruption.   In  particular,  if 
control  is  in  the  system  delay  routine,  control  will  be  returned  to  the 
delay  routine  which  will  then  return  control  to  the  user. 
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If  E0R  ^   0,  the  trap  processor  will  return  control  to  the  subroutine  at 
location  E0R  with  the  number  of  words  transmitted  by  the  last  channel  command 
in  the  address  of  the  AC.   The  results  of  a  Store-Channel  instruction  (which  was 
executed  at  the  end  of  the  data  transmission)  may  be  placed  in  the  logical  AC 
by  executing  the  instruction  CAL  0,1  since  index  register  1  contains  the  complement 
of  the  address  of  these  results.   The  contents  of  index  register  4  are  such  that 
return  should  be  made  to  1,4  by  the  E0R  subroutine  when  it  is  finished  so  that 
the  trap  processor  may  restore  the  proper  contents  of  the  various  registers,  and 
resume  the  interrupted  programs  at  the  point  of  the  interruption. 

6.2.4.9.  E0F:  End-of-File 

All  of  the  preceding  discussion  of  E0R  is  applicable  to  E0F  when 
reading,  except  that  no  information  concerning  the  word  count  or  Store-Channel 
instruction  is  available  to  the  user  in  the  AC  or  in  index  register  1  upon 
transfer  to  E0F  after  a  trap  has  occurred. 

6.2.4.10.  ETT:   End-of-Tape 

When  the  trap  processor  is  entered  while  writing  because  of  a  normal 
end-of -record  or  end-of-file  trap,  the  end-of-tape  indicator  for  the  channel 
containing  the  specified  unit  is  tested.   If  the  end-of-tape  indicator  is  on, 
the  processor  takes  the  action  indicated  by  ETT  before  it  looks  at  E0R  or  E0F. 

If  ETT  =  0  the  trap  processor  will  continue  on  to  interrogate 
the  E0R  or  E0F  condition. 

If  ETT  /  0  the  trap  processor  will  transfer  control  to  ETT  with 
the  contents  of  the  AC  and  index  register  1  as  described  in  section  6.2.4.8., 
E0R:   End-of -Record.   The  contents  of  index  register  4  will  be  such  that  the 
ETT  subroutine  should  return  control  to  1,4  when  it  has  finished.   When 
control  is  returned  to  the  trap  processor  the  E0R  or  E0F  conditions  will  then 
be  interrogated  normally. 

If  on  exit  from  RTT  (see  section  6.2.4.11.,),  an  End-of-Tape  condition 
has  been  detected,  then  control  does  not  go  to  ETT. 

If  an  ETT  is  encountered  while  writing  on  a  scratch  tape  or  on  a  save- 
mount  tape  with  no  second  savemount  tape  specified,  the  operator  will  necessarily 
terminate  the  job. 
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6.2.4.11.   F,RTT:   Redundancy  Check,  Tapes 

When,  during  a  read  or  write  operation  on  an  I/O  unit,  a 
redundancy  check  occurs,  the  CPU  is  trapped  immediately  and  control 
is  transfered  to  the  system  trap  processor. 

If  both  F  =  0  and  RTT  =  0,  then  a  backspace -record  (BSR) 
is  executed  on  the  specified  unit  and  reading  is  retried  45  times  or  writing 
is  retried  eight  times.   If  after  nine  tries  the  write  operation  is  still 
unsuccessful,  a  blank  section  of  tape  is  written.   Failure  is  conceded  after  four 
sets  of  nine  unsuccessful  tries  (each  followed  by  a  blank  section  of  tape) 
have  been  made  and  a  final  set  of  nine  tries  have  been  unsuccessful.   Appropriate 
comments  are  made  to  the  user  and  operator  and  the  job  is  terminated.   If  after 
45  tries  the  read  operation  is  still  unsuccessful,  one  attempt  is  made  to  read 
in  the  opposite  mode.   If  this  is  unsuccessful,  the  job  is  terminated  with 
appropriate  comments  to  the  user  and  operator. 

If  F  =  0  and  RTT  /  0,  then  a  backspace-record  (BSR)  is  executed 
on  the  specified  unit  and  reading  is  retried  45  times  or  writing  is  retried 
eight  times.   If  after  nine  tries  the  operation  is  still  unsuccessful,  then  the 
user's  subroutine  at  location  RTT  is  entered.   The  results  of  the  Store-Channel 
instruction  may  be  placed  in  tae  logical  AC  by  executing  the  instruction 
CAL  0,1  since  index  register  1  contains  the  complement  of  the  address  of  these 
results.   Index  register  2  will  contain  1  if  channel  A  or  2  if  channel  B. 
The  contents  of  index  register  4  are  such  that  the  RTT  subroutine  should 
return  control  to  1,4  when  it  is  finished. 

At  trie  time  RTT  receives  control,  the  tape  is  positioned  at 
the  beginning  of  t.ie  record  in  which  tiie  check  occurred. 

If  both  F  /  0  and  RTT  /  0,  then  the  user's  RTT  subroutine 
is  entered  immediately  with  the  contents  of  index  registers  1  and  2  as  in 
the  case  cited  above  when  F  =  0  and  RTT  /  0.   Again,  the  contents  of  index 
register  4  are  suca  that  the  RTT  subroutine  should  transfer  control  to  1,4 
w  -en  it  is  finished.   At  the  time  RTT  receives  control  the  tape  will  be 
positioned  at  tae  end  of  the  record  in  which  the  check  occurred. 
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6.2.4.12.  Buffering  by  User  for  I/O  Operation 

The  foregoing  descriptions  of  the  select  routines  are  based  on 
the  assumption  that  they  are  not  providing  automatic-  I/O  buffering. 
Indeed,  the  facilities  are  provided  so  that  a  user  may  do  his  own  buffering. 

6.2.4.13.  Index  Registers 

Upon  normal  return  from  SYSxxx  routines,  index  registers  1  and  2 
retain  the  values  tney  contained  upon  entry  into  the  routines.   However, 
during  E0R,  E0F,  RTT  and  ETT  exits  within  the  SYSxxx  routines,  it  cannot  be 
assumed  that  index  registers  1  and  2  contain  the  original  entry  values.   As 
noted  above,  they  can  and  do  contain  temporary  values  of  use  to  the  programmer. 
Restoration  of  1  and  2  occur  once  control  is  returned  to  1,4. 
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6.2.6.   Non-Data  Select  Tape  Routines  For  Use  on  Non-Restricted  Tape  Units 

The  calling  sequence  for  all  of  the  routines  in  this  section 
has  the  form: 

TSX  SYSxxx,U 
TIX   , ,UNIT 
Normal  Return  -  -  - 

where  UNIT  is  as  described  in  section  6.2.U.5.,  and  is  limited  to  2,    3>  ^>    9> 
and  10,  and  xxx  represents  the  characters  REW,  BSR,  BSF  or  WEF. 

6.2.6.1.  SYSREW:  Rewind  tape  specified  by  UNIT. 

6.2.6.2.  SYSBSR:  Backspace  record  of  tape  specified  by  UNIT. 

6.2.6.3.  SYSBSF:  Backspace  file  of  tape  specified  by  UNIT. 
6.2.6.U.  SYSWEF:  Write  end-of-file  on  tape  specified  by  UNIT. 
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6.2.8.  Disk  File  Execution  Coordination  Routines 

6.2.8.1.  General 

The  PORTHOS  system  contains  a  set  of  routines  which  enable  the  user 
to  transfer  information  to  and  from  the  IBM  1301  Disk  File.   These  routines 
perform  the  basic  disk  operations  of  writing  format  tracks ,  writing  data  with  and 
without  write -checking,  reading  data,  and  delaying.   The  interested  user  should 
see  IBM  Bulletin  D22-6576-3,  "IBM  1301  Disk  Storage  with  IBM  7000  Series  Data 
Processing  Systems." 

At  present,  the  standard  operating  conditions  for  the  use  of  the  disk 
file  are 

1.  Module  0  is  available  to  all  users ; 

2.  Module  1  is  reserved  and  not  available  to  users; 

3.  The  Home  Address  Operation  switch  on  the  763I  File  Control  is  on; 

k.      The  switch  which  allows  Format  tracks  to  be  written  on  module  0  is  on; 

5.  Format  tracks  specifying  one  ^-66-word  record  per  track  are  written 
for  the  first  100  cylinders  (tracks  0  to  3999); 

6.  Format  tracks  specifying  two  229-word  records  per  track  are  written 
for  the  next  50  cylinders  (tracks  ^000-5999). 

6.2.8.2.  Format  Tracks 

Format  tracks  will  be  written  according  to  the  following  specifications: 

1.  Home  Address  Identifier  (Home  Address  2's)  will  be  six 
characters,  or  one  word,  in  length;  and 

2.  Record  Addresses  six  characters,  or  one  word,  in  length  will  precede 
each  record  area. 

For  users  who  wish  to  exercise  the  option  of  writing  format  tracks 
according  to  their  own  specifications,  as  in  c)-(6),  section  6.2,8.3-j  "the  "prefix" 
which  is  automatically  written  by  the  format  routine  consists  of  Gap  1,  HA1,  Gap  2, 
HA2,  and  X  gap,  a  Record  Address,  a  Y  gap,  and  the  first  four  characters  of  the  first 
Record  Area.   The  format  track  must  be  written  in  six-bit  mode. 

All  format  tracks  are  checked  by  a  write -check  operation  as  they  are  written 
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6.2.8.3.   Format  Track  Routine 

The  calling  sequence  for  the  routine  which  writes  format  tracks  is 

CALL   D .  FMT 
TIX    TRACK, M0DULE, TYPE 

error  return  (unsuccessful  operation) 

normal  return  (successful  operation) 

where 

a)   TRACK   =  the  number  of  a  track  within  the  cylinder  for  which 

the  format  track  is  to  he  written  (6000  <  TRACK  <  9999); 
h)   MODULE  =  the  number  of  module  on  which  the  format  track 

is  to  be  written  (MODULE  =  0); 
c)   TYPE    =  a  number  A  which  indicates  the  type  of  format  track 
to  be  written: 

(1)  if  A=l,  a  single  record  area  of  k66   words  will  be  formatted; 

(2)  if  A=2,  two  record  areas  of  229  words  each  will  be  formatted; 

(3)  if  A=3^  three  record  areas  of  151  words  each  will  be  formatted; 
(h)  if  A=^,  four  record  areas  of  111  words  each  will  be  formatted; 

(5)  if  5  <  A  <  SYS0RG  (=  current  upper  boundary  of  "low  core" 
execution  coordination  routines)  or  if  A=0,  the  error  message 
"ILLEGAL  DISK  FORMAT  SPECIFICATION"  will  be  written  on  the 
user's  off-line  output  and  execution  will  be  terminated  via 
SYS ERR; 

(6)  if  A  >  SYS0RG,  a  format  track  will  be  written  by  (a)  writing 
the  "prefix" ,    and  then  (b)  copying  hGj   words  from  locations  A 
through  A  +  h66   to  complete  the  format  track. 

If  the  parameters  TRACK  and  M0DULE  do  not  lie  within  the  indicated 
bounds,  the  message  "ILLEGAL  DISK  FORMAT  SPECIFICATION"  will  be  written  on  the 
user's  off-line  output  and  execution  will  be  terminated  via  SYSERR. 
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In  case  an  error  is  detected  during  the  writing  of  a  format  track, 
the  routine  will  attempt  four  additional  times  to  perform  the  indicated 
operation;  if  the  operation  still  cannot  be  completed  correctly  control  will 
be  returned  to  the  "error  return"  with  the  first  word  of  sense  information- 
provided  to  the  7909  Data  Channel  by  the  763I  File  Control  in  the  MQ  register. 

The  contents  of  the  AC  and  MQ  registers  are  not  saved. 

The  format  track  routine  will  delay  until  the  format  operation  is 
complete,  and  only  then  will  control  be  returned  to  either  the  "error  return" 
or  the  "normal  return";  an  entry  to  the  disk  delay  routine  is  neither  necessary 
nor  desirable. 

6.2.8.U.   Data  Transmission 

There  are  five  modes  (or  types)  of  operation  by  which  data  may  be 
transmitted  to  and  from  the  disk: 

1)  a  Track  With  Home  Address  operation, 

2)  a  Track  With  Addresses  operation, 

3)  a  Track  With  No  Address  operation, 
k)     a  Cylinder  operation,  and 

5)  a  Single  Record  operation. 

Data  to  be  written  onto  or  read  from  the  disk  must  appear  in  core 
in  a  single  block  of  the  desired  length;  no  means  is  provided  for  transmission 
of  multiple  blocks  in  a  single  operation. 

All  data  transmission  operations  are  terminated  with  a  channel 
trap. 

Written  records  which  do  not  fill  the  formatted  area  will  have  the 
remaining  words  filled  with  zeros. 
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6.2.8.5«   Disk  Input-Output  Select  Routines 

The  calling  sequence  for  the  three  input -output  routines  is 

CALL    XXXXXX 
TIX     TRACK,  M0DULE,  ADRL0C 
TIX     MEMADR,  TYPE, NBRWDS 
TIX     N0RECX,,CMPCHX 
TIX     E0RX, ,DATCHX 
return 


where 


a)  XXXXXX  =  D.RD  for  a  read  operation 

=  D.WR  for  a  "write  operation 

=  D.WAC  for  a  write  and  write-check  operation; 

b)  TRACK   =  the  number  of  the  track  on  which  the  operation  is  to 

begin  (0  <  TRACK  <  9999); 

c)  M0DULE  =  the  number  of  the  module  on  which  the  operation  is  to 

take  place  (M0DULE  =  0); 

d)  ADRL0C  =  location  of  a  six-character  word  to  be  used  for  address 

verification  (ADRL0C  >  SYS0RG)  (see  Note  1  below); 

e)  MEMADR  =  location  of  the  first  word  of  a  block  of  NBRWDS  locations 

in  core  to  or  from  which  data  is  to  be  transmitted, 
starting  at  MEMADR  and  continuing  in  the  direction  of 
increasing  addresses  (MEMADR  >  SYS0RG); 

f)  TYPE    =  one  of  the  five  types  of  operation  specified  in 

section  6,2. 8. k.    (l  <  TYPE  <  5); 

g)  NBRWDS   =  the  number  of  words  to  be  transmitted  to  or  from  the 

block  at  MEMADR  (NBRWDS  >  0)  (see  Note  2); 

h)   N0RECX  =  locations  to  which  control  may  be  transferred  upon  the 

CMPCHX  execution  of  the  channel  trap  signifying  the  end  of  an 

E0RX  operation;  further  details  are  given  below  (each  must 

DATCHX  be  >  SYS0RG) . 
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6.2.9*   Dumps  and  Recovery  Procedures 

6.2.9.1.   SYSPAN:   Panel  Dump 

SYSPAN  provides  a  dynamic  dump  of  the  contents  of  the  machine 
indicators,  registers  and  lights.   Specifically,  the  AC  with  P  and  Q  bits, 
MQ,  sense  indicators,  all  7  index  registers,  multiple  tag  mode  light,  sense 
lights,  AC  overflow  light,  MQ,  overflow  light,  divide  check  light,  I/O 
check  light,  and  whether  or  not  the  machine  is  in  the  transfer  trap,  storage 
nullification,  or  floating  point  trap  mode  are  printed.   This  routine  is  the 
same  as  that  which  produces  the  top  three  lines  of  a  system  dump  (see 
section  U.2.5-2. ). 

The  calling  sequence  is: 

SCATRE : 

CALL      SYSPAN 
FASTRAN : 

CALL      SYSPAN 
FORTRAN : 

CALL      SYSPAN 
MAD: 

EXECUTE   SYSPAN.  or 
SYSPAN. 


6.2.9.2.   SYSD0D:  Dynamic  Octal  Dump 

A  system  dump  subroutine  exists  which  allows  the  user  to  receive 
an  octal  dump  of  all  or  portions  of  core  during  the  execution  of  his  program. 
The  calling  sequence  for  SCATRE  is: 

CALL  SYSD0D 

TIX  FWA,,LWA 

-  -  -   Normal  Return 
where  FWA  =  First  word  of  core  to  be  dumped  and 
LWA  =  Last  word  of  core  to  be  dumped. 

FWA  and  LWA  can  be  absolute  addresses  or  symbols. 
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SYSD0D,  when  called,  gives  an  octal  dump  of  the  locations  required 
and  then  returns  to  the  user's  program  at  normal  return-  The  number  of  pages 
or  printout  required  for  this  dump  is  considered  as  part  of  execution  pages 
output,  so  the  user  of  SYSB0B  should  remember  this  in  estimating  execution 
pages  output.   SYSB0D  will  dump  8  core  locations  per  line  of  output  in  the 
same  format  as  the  system  dump  (see  section  4.2.5*2.  ). 

An  example  of  the  use  of  SYSBjZto  in  SCATRE : 
A      CLA      C 


B      STD  D 

CALL  SYSB0D 

TEC  A,,B 

CALL  SYSB0B 

TEC  C,,D 


C      BSS      50 
D      BSS      50 
The  example  above  will  dump  the  program  from  A  through  B  and  the 
storage  area  from  C  up  to  and. including  the  first  cell  of  B. 

If  users  wish  to  use  SYSB0B  in  FORTRAN,  a  SCATRE  subroutine  must 
be  written  to  accomplish  this. 

SYSB0B  can  be  used  in  MAD  for  dumping  areas  of  data  storage,  with 
the  calling  sequence: 

EXECUTE  SYSB0B.     (LWA. ..FWA.)  or 
SYSB0B.  (LWA... FWA) 
The  following  is  a  short  program  in  MAD  showing  its  method  of  use. 
VECTOR  VALUES  MATX  =  1,2,3,4,5,6,7,8,9,10,11 
EXECUTE  SYSD0TJ.  (MATX(lO) .  .  .MATX(O)  ) 
END  0F  PR0GRAM 
To  dump  a  portion  of  a  MAD  program,  a  SCATRE  subroutine  must  be  written. 
SYSB0B  can  be  used  to  dump  protions  of  Low  Core,  i.e.  areas  lying  below 
SYS0RG  =  lOOOOg,  when  LWA  and  FWA  are  absolute  values. 
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L,  the  value  of  L  having  been  determined  and  set  at  the  most  recent  prior 
call  of  FCLEAN. 

CASE  2) 

EXECUTE  SYSCUP.  (L) 

or 
SYSCUP.  (L) 
where  L  is  a  variable  of  the  statement  label  mode  or  a  statement  label. 

At  termination  control  will  be  transferred  to  the  statement  label 
assigned  to  L. 


6.2.9.4.   Use  of  0FTRAC  and  0NTRAC 

The  user  who  wishes  to  trace  dynamically  a  program's  internal  calls 
to  subroutines  can  turn  on  a  switch  to  achieve  this  aim.   0NTRAC,  when  called 
turns  the  switch  on;  0FTRAC  turns  the  switch  off.   For  this  subroutine  to  be 
effective,  a  $  SUBTRACE  control  card  must  be  contained  in  the  first  group  of 
$  control  cards. 

The  $  SUBTRACE  control  card  initiates  a  special  linkage  which 
enables  the  message 

SUBROUTINE  "Name"  CALLED  FR0M  XXXXX 
to  be  printed  every  time  a  subroutine  is  called  once  a  CALL  j^NTRAC  has  been 
executed.   It  should  be  kept  in  mind  when  using  this  feature  that  a  number 
of  additional  locations  will  be  required.   The  number  of  locations  is  130o 
+  4N  where  N  equals  the  total  number  of  subroutines  called  in  the  user's 
program. 

The  switch  is  set  "on"  by  executing: 

EXECUTE     0NTRAC.        (MAD) 
or  0NTRAC. 

CALL        0NTRAC  (SCATRE) 

CALL        0NTRAC  (FORTRAN) 

CALL        0NTRAC  (FASTRAN) 

The  switch  is  set  "off"  by  executing: 

EXECUTE     0FTRAC        (MAD) 
or  0FTRAC. 

CALL        0FTRAC        ( SCATRE ) 

CALL        0FTRAC        (FORTRAN) 

CALL        0FTRAC        (FASTRAN ) 
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6.2.10.   System  Floating  Point  Trap  Procedure  and  Associated  Routines 

At  execution  time,  at  the  time  when  the  user's  program  receives  control  of 
the  machine,  floating  point  trap  mode  is  on.   At  this  time,  the  system  is 
set  to  process  the  occurrence  of  a  floating  point  trap  according  to  the 
following  rules: 

a.  MQ  underflow  on  floating  add,  subtract  or  multiply  or  double - 
precision  orders  causes  MQ,  to  be  set  to  zero; 

b.  AC  underflow  on  single -precision  floating  divide  is  ignored; 

c.  All  other  floating  point  traps  will  result  in  the  termination 
of  execution  and  return  to  the  system  via  SYSERR. 

6.2.10.1.   FTRAF:   Ignore  Underflow  Trap 

The  normal  mode  of  floating  point  trap  processing  may  be  altered 

from  that  described  above  by  executing: 

EXECUTE  FTRAP.  or  (MAD) 

FTRAP. 

CALL  FTRAP  (SCATRE) 

CALL  FTRAP  (FORTRAN) 

CALL  FTRAP  (FASTRAN) 

Thereafter,  floating  point  traps  will  be  processed  by  the  system 

according  to  the  following  rules : 

a.  MQ,  is  set  to  zero  on  MQ  overflow  on  floating  add,  subtract 
or  multiply  or  double-precision  orders; 

b.  AC  underflow  on  floating  add,  subtract  or  multiply  or  double- 
precision  orders  will  cause  AC,  Q,, P,  and  MQ  to  be  set  equal  to 
zero,  then  proceed; 

c.  AC  underflow  on  single-precision  floating  divide  is  ignored; 

d.  MQ  underflow  on  single-precision  floating  divide  will  cause 
MQ  to  be  set  equal  to  zero,  then  proceed; 

e.  All  occurrences  of  AC  and/or  MQ  overflow  will  result  in  the 
termination  of  execution  and  return  to  the  system  via  SYSERR. 
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6.2.10.2.   NFTRAP:   Restore  Underflow  Trap 

The  processing  of  floating  point  traps  may  be  returned  to  the 
normal  mode  by  executing: 


EXECUTE  NFTRAP.   or 
NFTRAP* 


(MAD) 


CALL  NFTRAP  (SCATRE) 

CALL  NFTRAP  (FORTRAN) 

CALL  NFTRAP  (FASTRAN) 

NOTE:   The  floating  point  trap  processor  always  causes  references  to  odd 

addresses  by  double-precision  orders,  except  DST,  to  result  in  termination 

of  execution  via  SYSERR  with  the  comment: 

DP  ERR0R  TRAP  AT  XXXXX. 

when  the  floating  point  trap  mode  is  on. 

FTRAP  and  NFTRAP  are  library  subroutines.   See  copies  of  the 

writeups  for  error  messages. 

6.2.10.3.   0TRAP:   Count  Floating  Point  Traps 

The  counting  of  all  arithmetic  floating  point  traps,  both  overflow 

and  underflow  can  be  accomplished  by  executing: 

EXECUTE  0TRAP.  or  (MAD) 

0TRAP. 

CALL  0TRAP  (SCATRE) 

CALL  0TRAP  (FORTRAN) 

CALL  jZiTRAP  ( FASTRAN) 

Use  of  this  entry  point  will  cause  all  traps  to  be  ignored.   The  count  of 

traps  that  have  occurred  can  be  obtained  by  executing  FPT1C.   (See  Library 

Routine  Ql-UOI-FPTl-65-SR ) 


Date  : 

5/1/65 

Section : 

6.2.10. 

Page : 

2 

Change : 

2 

Port ho s 

Manual 

is  logically  equivalent  to  the  format  specification 

E10. 3,E10. 3,E10. 3, I2,F10. 1,F10. 1,F10. 1, I2,F10. 1,F10. 1,F10. 1,C5,C5* 

6.3.2.lk.      Scaled  Field  Descriptions 

It  is  possible  to  write  an  F-field  or  an  E-field  description  with 
a  scale  factor  which  will  be  applied  to  every  number  to  which  the  description 
is  applied. 

6.3.2.14.1.   Scaled  Basic  Field  Descriptions 

A  scale  factor  may  be  applied  to  a  basic  field  description.   Such 
a  scaled  basic  field  description  may  have  any  one  of  the  following  forms 

sFD 
+  sFD 

-  sFD 

where  D  is  either  an  F-field  basic  field  description  (see  section  6.3.2.7.1.) 
or  an  E-field  basic  field  description  (see  section  6.3.2.8.1.).   The  character 
P  denotes  a  scale  factor,  and   s   is  a  decimal  integer  equal  to  the  exponent 
of  the  power  of  10  by  which  the  number  is  to  be  multiplied.   If  the  exponent 
is  negative  the  sign   -  must  be  punched;  if  the  exponent  is  positive  the 
sign  +  is  optional. 

6.3.2.1^.2.   Scaled  Multiple  Basic  Field  Descriptions 

A  scale  factor  may  be  applied  to  a  restricted  form  of  a  multiple 
basic  field  description.   Such  a  scaled  multiple  basic  field  description  may 
have  any  one  of  the  following  forms 

sPID 
+  sPID 

-  sPID 

where  D   is  either  an  F-field  basic  field  description  (see  section 
6.3.2.7.1.)  or  an  E-field  basic  field  description  (see  section  6. 3.2.8.1.), 
I  is  a  decimal  integer  equal  to  the  number  of  consecutive  field  described 
by  D   (so  that  ID 

above  has  the  form  of  the  primitive  multiple  basic  field  description  of 
section  6.3.2.13.   (a)),  the  character  P  denotes  a  scale  factor,  and   s   is 
a  decimal  integer  equal  to  the  exponent  of  the  power  of  10  by  which  the  number 
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in  each  of  the   I  consecutive  fields  is  to  be  multiplied.   If  the  exponent 
is  negative  the  sign  -  must  be  punched;  if  the  exponent  is  positive  the 
sign  +  is  optional. 

In  F0RTRAN,  once  a  scale  factor  has  been  given,  it  will  hold  for 
all  E-  and  F-type  conversions  following  the  scale  factor  within  the  same 
F0RMAT  statement.   Once  a  scale  factor  has  been  given,  a  subsequent  scale 
factor  of  zero  in  the  same  F0RMAT  statement  must  be  specified  by  OP.   In 
MAD,  SCATRE  and  ALG0L  the  scale  factor  is  operative  only  upon  the  E-  or 
F-type  field  conversion  to  which  it  is  applied. 

6.3.2.14.3.   Scaled  F -Fields 

When  a  scale  factor  is  applied  to  an  F-field  the  following 
formula  holds : 

External  Number  =  Internal  Number  X  10 

The  scaling  (multiplication  by  10  )  is  done  before  the  number 

is  printed  or  punched  on  output  and  after  the  number  has  been  read  and 

converted  on  input.   Notice  that  scaling  actually  changes  the  value  of 

the  number  in  an  F-field. 

Example : 

Suppose  the  format  specification 

3F7-3* 

is  used  and  as  a  result  the  three  numbers  which  follow  are  printed: 

0.522b-1.567b93.671 

If,  instead,  the  format  specification 

-2P2F7-3,F7.3* 

were  used  the  same  numbers  would  print  as: 

0.005b-O.Ol6b93.671   in  MAD,  SCATRE 

and  ALG0L 

and  0.005b-0,Ol6bO-937    in  FORTRAN 

6. 3. 2. Ik. k.      Scaled  E-Fields 

When  a  scale  factor  is  applied  to  an  E-field  used  for  output, 
the  number  and  the  exponent  are  both  modified  so  that  the  value  is 
unchanged;  only  the  form  in  which  the  number  is  printed  is  changed. 
Example  : 

Suppose  that  the  format  specification 

E18.4* 
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is  used  and  as  a  result  the  number 

0.9321JE-03 
is  printed. 

If  the  format  specification 

2PE18.U* 
were  used  instead,  the  same  number  would  print  as 

93.2100E-05 

6.3.2.I5.   Format  Specifications  and  Reading,  Punching,  and  Printing 

6.3.2.I5.I.   Available  Columns 

The  maximum  number  of  columns  that  may  be  described  by  a  format 
specification  depends  upon  whether  cards  or  print  lines  are  being  described 
and  whether  on-line  or  off-line  equipment  processes  the  card  or  line. 

When  input/output  according  to  a  format  specification  describing  more 
than  the  maximum  permissible  number  of  columns  is  attempted  during  execution 
of  a  program,  an  error  message  is  printed  and  the  job  is  terminated 
(see  section  6. 3.6. 3.^.  )• 

The  relationship  between  the  card/line  described  by  the  format 
specification  and  the  string  of  Hollerith  characters  which  is  read,  printed, 
or  punched  likewise  depends  on  the  equipment  used. 

In  the  following  tables,  both  the  maximum  number  of  columns  and  the 
relationship  between  the  format  specification  and  the  string  of  Hollerith 
characters  are  stated  in  all  detail  for  all  types  of  input/output. 
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Notes: 

(1)  If  the  1^01  computers  that  process  input  and  output  off-line  are 
available,  the  preparation  of  an  input  tape  and  printing  and  punching  of 
an  output  tape  may  possibly  be  performed  on  the  709^  by  programs  using  the 
on-line  card  reader,  printer,  and  punch. 

The  on-line  card  reader,  printer  and  punch  cannot  process  as  many 
columns  as  can  the  1^-01  computers  (see  Table  6-2).   However,  the  maximum 
number  of  columns  that  may  be  described  by  the  format  specification  is  not 
changed  if  this  on-line  processing  is  used. 

(2)  It  is  advisable  to  reserve  columns  73-80  for  identification. 

6.3.2.15.2.   Carriage  Control  on  the  Off -Line  Printer 

If  a  line  image  is  to  be  printed  on  the  off-line  printer,  the  first 
character  of  the  image  is  tiie  carriage  control  character.   It  controls  the 
vertical  motion  of  the  printer  carriage  just  before  the  line  is  printed  -  the 
preprint  skip.   The  carriage  control  character  is  not  printed. 

The  carriage  control  characters  and  resulting   skips  are 
tabulated  and  discussed  in  section  6.2.2.2.  and  in  Appendix  1. 
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6.3*5-   Input/Output  with  Conversion  Subroutines 

1.  .READ  -  read  BCD  card  images  from  the  system  input  tape  and 

convert  according  to  a  format  specification. 

2.  .PRINT-  write  BCD  line  images  on  the  system  output  tape 

according  to  a  format  specif ication. 

3.  .  C0MNT-  write  BCD  line  images  on  the  on-line  printer  according 

to  a  format  specification. 
k.        .PUNCH-  write  BCD  card  images  on  the  system  output  tape 
according  to  format  specification. 

5.  .TAPWR-  write  BCD  line  images  on  a  specified  logical  tape 

according  to  a  format  specification. 

6.  .TAPRD-  read  BCD  line  images  from  a  specified  logical  tape 

and  convert  according  to  a  format  specification. 

7.  oLppK  -   look  at  the  next  BCD  card  image  on  the  system  input  tape 

and  convert  it  according  to  a  format  specification. 

8.  .PRPCH-  write  both  BCD  line  images  and  BCD  card  images  on  the 

system  output  tape  according  to  a  format  specification. 

9.  . K0LEK-  convert  a  given  I/O  list  according  to  a  format 

specification  and  store  results  in  a  given  region  in  core. 
10.    .DISTB-  convert  BCD  line  images  in  a  given  region  in  core  according 
to  a  format  specification  and  assign  results  to  a  given 
I/O  list. 

The  above  subroutines,  described  in  sections  6.3»5»1«  to  6.3»5<>10. , 
are  those  available  for  performing  input  with  conversion  from  BCD  to  binary  or 
output  with  conversion  from  binary  to  BCD  according  to  a  format  specification. 
Ordinarily  the  user  needs  to  know  only  the  calling  sequence  of  the  I/O  with 
conversion  subroutine  and  how  to  write  the  format  specification  and  I/O  list 
in  order  to  program  the  desired  input/output. 

End-of-file,  end-of~tape,  and  error  conditions  may  occur  during 
execution  of  I/O  with  conversion  subroutines.   Essential  information  about 
conditions  pertinent  to  each  subroutine  is  summarized  briefly  in  the  subroutine 
description.   In  section  6.3.6.,  each  exceptional  condition  is  fully  described 
together  with  the  action  taken  at  the  corresponding  standard  (end-of-file, 
end~of-tape,  I/O  error)  return  and  how  the  user  may  specify  his  own  (end-of-file, 
end-of-tape,  I/O  error)  return,  in  case  the  user  wishes  to  take  other  than  the 
standard  action  when  a  (end-of-file,  end-of-tape,  I/O  error)  condition  occurs. 

6.3.5.I.   -READ 

Read  BCD  card  images  from  the  system  input  tape  and  convert  according  to 
a  format  specification. 
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The  calling  sequence; 

CALL      . REAL 
STR       FORMAT  ,,D 
(I/O  list) 
NORMAL  RETURN 

The  parameters  FORMAT  and  L  : 

FORMAT  is  the  location  containing  the  first  word  of  the  format 
specification. 

L  specifies  the  order  in  which  the  format  specification  is 
stored: 

L  =  0:  The  second  word  of  the  format  specification  is 

in  location  FORMAT +1,  the  third  in  FORMAT +2,  etc. 

D  /  0:  The  second  word  of  the  format  specification  is 
in  F0RMAT-1,  the  third  in  F0RMAT-2,  etc. 
Properties  of  the  format  specification  : 

The  kth  character  described  by  the  format  specification  is  read  from 
the  kth  column  of  the  BCL  card  image. 

A  format  specification  describing  more  than  80  columns  is  an  I/O 
error;  control  is  transferred  to  the  I/O  error  return. 

At  least  one  card  image  is  always  read,  even  if  the  I/O  list  is 
empty. 

More  than  one  card  image  is  read  only  if  the  format  specifies  two 
or  more  cards  and  specifies  the  first  card  image  to  consist  entirely  of 
S-,  X-,  and  H-  fields.   In  this  case,  card  images  are  read  until  one  of  the 
following  occurs: 

a)  the  single-line  format  specification  describing  the 
last  card  image  read  specifies  a  field  which  is  not  an  S-,  X-,  or 
H-field; 

b)  the  end  cf  the  format  specification  is  reached; 

c)  an  l/O  error  is  detected; 

d)  an  end-of-file  mark  is  encountered. 
The  End-of-file  Return 

The  standard  end-of-file  return  is  subroutine  SYSTEM,  which 
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execution.  A  non-standard  I/O  error  return  may  "be  specified  by  the  user 
(section  6.3.6.3.3. ). 

For  a  more  complete  discussion  of  I/O  errors  and  error  returns, 
see  section  6.3.6.3. 

6.3.5.5.   .TAPWR 

Write  BCD  line  images  on  a  specified  logical  tape  according  to  a 
format  specification. 
The  calling  sequence : 


CALL 

.TAPWR 

STR 

L0C(UNIT) 

STR 

F0RMAT, 

,D 

(I/O  List) 

NORMAL 

RETURN 

The  parameter  UNIT : 

L0C(UNIT)  is  the  location  whose  address  field  contains  UNIT,  the 
logical  tape  number  of  the  tape  to  be  written. 

Permissible  values  of  UNIT  are: 

the  logical  number  of  a  utility  tape, 
the  logical  number  of  the  system  output  tape, 
and  5'   (The  significance  of  UNIT  =  5  is  explained  in  the 
second  paragraph  below). 
A  table  of  logical  tape  numbers  may  be  found  in  section  6.2.U.5- 
Any  other  value  of  UNIT  is  an  I/O  error;  control  is  transferred  to  the 
i/O  error  return.   (See  below). 

If  UNIT  is  the  logical  tape  number  of  the  system  output  tape, 
the  BCD  line  image  is  written  by  .PRINT,  as  described  in  section  6. 3- 5-2. 
The  remainder  of  the  description  of  .TAPWR  is  not  applicable.   The  use  of 
.PRINT  is  recommended. 

If  UNIT  =  5j  BCD  card  images  are  written  on  the  system  output 
tape,  as  described  in  the  writeup  of  .PUNCH  (section  6.J,.^.k.);    the 
remainder  of  the  description  of  .TAPWR  is  not  applicable.   Use  of  .PUNCH 
is  recommended.   (UNIT  =  5  has  this  significance  because  logical  tape  5 
was  formerly  the  "system  punch  output  tape".   There  is  no  longer  any 
"system  punch  output  tape"). 
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The  parameters  FORMAT  and  D: 

F0RMA.T  is  the  location  containing  the  first  word  of  the  format 
specification. 

D  indicates  the  order  in  which  the  format  specification  is  stored; 
D  =  0:   The  second  word  of  the  format  specification 

is  in  location  P0RMA.T+1,  the  third  in  F0RMA.T+2,,  etc. 
D  /  0:  The  second  word  of  the  format  specification  is 

is  in  location  P0RMAT-1,  the  third  in  F0RMA.T-2,  etc. 
Properties  of  the  format  specification: 

The  kth  character  described  by  the  format  specification  is  the 
kth  character  of  the  BCD  line  image. 

A  format  specification  describing  more  than  133  columns  in  an  I/O 
error |  control  is  transferred  to  the  i/o  error  return  (see  below). 
The  End-of-Tape  return: 

If  UNIT  denotes  a  utility  tape,  and  an  end-of-tape  mark  is 
encountered  during  writing,  after  the  BCD  line  image  has  been  written  control 
is  transferred  to  the  end-of-tape  return. 

The  standard  end-of-tape  return  is  described  in  section  6. 3-6.2,1, 
A  non-standard  end-of-tape  return  may  be  specified  by  the  user  (section 

6.3.6.2.3.). 

A  more  complete  discussion  of  the  end-of-tape  return  may  be  found 
in  section  6„3°6=2„ 
The  l/O  error  return; 

The  following  l/O  errors  may  occur  during  execution  of  .TAPWR: 

UNIT  is  not  the  logical  tape  number  of  a  utility  tape  or  one  of 
the  system  output  tapes; 

the  format  specification  describes  more  than  133  columns  (error 
(l)  of  section  6.3.6.3.^. )j  or 

format/conversion  errors  (2)  and  (5)  of  section  6.3.6.3.^. 

The  message  describing  the  error  is  printed  and  control  is  transferred 
to  the  l/O  error  return  when  the  error  is  detected.   The  BCD  line  image  is 
not  written  on  tape  UNIT. 

The  standard  l/O  error  return  is  described  in  section  6. 3 . 6.3-2, 
A  non-standard  l/O  error  return  may  be  specified  by  the  user  (section  6„ 3-6. 3-3° ) 
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6.3.5-7.   -L00K 

Look  at  the  next  BCD  card  image  on  the  system  input  tape 
and  convert  it  according  to  a  format  specification. 

In  other  words,  .L00K  converts  the  next  BCD  card  image  on 
the  system  input  tape  according  to  a  format  specification,  but  does 
not  move  the  tape  past  this  card  image.   No  attempt  should  be  made 
to  backspace  the  system  input  tape . 

If  the  format  specification  and  I/O  list  together  require 
conversion  of  more  than  one  BCD  card  image,  every  one  of  the  card 
images  converted  is  the  card  image  next  on  the  system  input  tape  at 
the  time  .L00K  is  called.   If  the  user  assumes  that  successive  card 
images  are  converted,  various  I/O  errors  or  other  errors  may  result, 

The  calling  sequence  : 


CALL 

.L00K 

STR 

F0RMAT,,D 

(I/O  list) 

NORMAL  RETURN 

The  parameters  F0RMA.T  and  D  : 

F0RMAT  is  the  location  containing  the  first  word  of  the 
format  specification. 

D  specifies  the  order  in  which  the  format  specification 
is  stored: 

D  =  0:   The  second  word  of  the  format  specification  is  in 

location  F0RMAT+1,  the  third  in  F0RMA.T+2,  etc. 
D  /  0:   The  second  word  of  the  format  specification  is  in 
location  F0RMAT-1,  the  third  F0RMAT-2,  etc. 

Properties  of  the  format  specification  : 

The  kth  character  described  by  the  format  specification  is 
the  character  in  the  kth  column  of  the  next  BCD  card  image  on  the 
system  input  tape . 

A  format  specification  describing  more  than  80  columns  is 
an  i/o  error^  control  is  transferred  to  the  i/o  error  return. 
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An  empty  i/o  list  : 

If  the  I/O  list  is  empty  and  the  next  BCD  card  image  on 
the  system  input  tape  is  not  an  end-of-file  mark,  this  card  image 
is  repeatedly  converted  until  one  of  the  following  occurs: 

a  basic  field  specification  other  than  an  X-,  S-,  or 
H-field  is  reached; 

the  end  of  the  format  specification  is  reached; 

an  I/O  error  is  detected. 

The  End-of-File  Return  : 

If  the  next  card  image  on  the  system  input  tape  is  an 
end-of-file  mark,  control  is  transferred  to  the  end-of-file 
return  (section  6.3.6.I.). 

The  standard  end-of-file  return  is  subroutine  SYSTEM, 
which  terminates  execution  of  the  job.   A  non-standard  end-of- 
file  return  may  be  specified  by  the  user  (section  6. 3. 6.1. 3.). 
It  is  impossible  for  the  user's  program  to  move  the  system 
input  tape  forward  or  backward  once  an  end-of-file  mark  has 
been  encountered. 

The  I/O  error  return  : 

The  following  I/O  errors  may  occur  during  execution 
of  .L00K: 

The  next  card  image  on  the  system  input  tape  is  that 
of  a  column  binary  card; 

The  format  specification  describes  more  than  80  columns; 

Format/conversion  errors  (2),  (3)>  (*0  of  section 
6. 3.6. 3. k. 

The  message  describing  the  error  is  printed  and  control 
is  transferred  to  the  standard  I/O  error  return  immediately  upon 
detection  of  the  error  unless  a  non-standard  i/O  error  return  is 
specified  by  the  user. 

For  a  more  complete  discussion  of  I/O  errors  and  I/O 
error  returns  see  section  6.3.6.3. 
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6.3.5-8.  .PRPCH 

Write  both  BCD  line  images  and  BCD  card  images  on  the 
system  output  tape  according  to  a  format  specification. 

In  other  words,  .PRPCH  writes  each  string  of  BCD 
characters  constructed  according  to  a  single-line  format 
specification  on  the  system  output  tape  both  as  a  BCD  card 
image  and  a  BCD  line  image. 

The  Calling  Sequence: 

CALL    . PRPCH 
STR     F0RMAT,, D 
(I/O  list) 
NORMAL  RETURN 
The  parameters  F0RMAT  and  D : 

FORMAT  is  the  location  containing  the  first  word  of 
the  format  specification. 

D  specifies  the  order  in  which  the  format  specification  is  stored: 
D  -   0:   The  second  word  of  the  format  specification 

is  in  location  F0RMAT+1,  the  third  in  F0RMAT+2,  etc. 
D  /  0:   The  second  word  of  the  format  specification 

is  in  location  F0RMAT-1,  the  third  in  F0RMAT-2,  etc. 

Properties  of  the  format  specification  -  carriage  control : 

The  first  character  described  by  the  format  specification 
controls  the  carriage  of  the  off-line  printer;  this  character  is 
neither  printed  nor  punched.   The  legal  carriage  control  characters 
are  listed  and  their  significance  explained  in  section  6.2.2.2. 

The  (k+l)st  character  described  by  the  format  specification 
is  printed  in  the  kth  print  position  of  the  off-line  printer  and 
punched  in  the  kth  column  of  the  BCD  card,  k  =  1,2, .  ..,80. 

A  format  specification  describing  more  than  8l  characters 
is  an  I/O  error;  control  is  transferred  to  the  i/O  error  return. 
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End-of-Tape  condition: 

If  the  system  output  tape  is  filled  during  execution  of 
a  jot,  corrective  action  is  automatically  taken  by  PORTHOS  and  the 
709^-  operator.   No  intervention  by  the  user  is  necessary.   Therefore, 
.PRPCH  has  no  end-of-tape  return. 

The  I/O  error  return  : 

Format/conversion  errors  (l),  (2),  and  (5)  (see  section 
6.3.6.3.^-.)  may  occur  during  execution  of  .PRPCH.   (Error  (l)  is 
the  format  error  referred  to  in  the  second  paragraph  preceding  )• 
The  message  describing  the  error  is  printed  and  control  is  trans- 
ferred to  the  standard  l/O  error  return  when  the  error  is 
detected  unless  a  non-standard  l/O  error  return  is  specified  by  the 
user.   Neither  the  BCD  line  image  nor  the  BCD  card  image  is  written 
on  the  system  output  tape . 

For  a  more  complete  discussion  of  l/O  errors  and  error 
returns,  see  section  6.3.6.3. 
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6.3.5.9-   .K0LEK 

To  convert  a  given  i/o  list  according  to  a  format  specification  and 
store  the  resulting  sequence  of  line  images  in  a  given  region  in  core  storage, 
The  line  images  have  the  format  of  line  images  written  by  the  I/O  with 
conversion  routines. 

The  calling  sequence: 

CALL     .K0LEK 
STR     REGI0N,, R 
STR     F0RMAT„D 
(I/O  list) 
NORMAL  RETURN 

The  parameters  REGION  and  R : 

REGION  is  the  base  address  of  the  block  of  storage  in  which  the 
sequence  of  line  images  resulting  from  conversion  by  .K0LEK  is  to  be  stored. 
Each  line  image  contains  23  words }    and  each  word  contains  6  BCD  characters, 
ordered  from  left  to  right.   All  characters  not  specified  by  the  format  are 
set  to  BCD  blanks.   This  is  the  format  of  all  card/line  images  created  by  the 
I/O  with  conversion  routines. 

R  specifies  the  direction  in  which  the  block  REGI0N  extends: 
If  R  =  0,  the  second  word  of  REGI0N  is  assumed  to  be  REGI0N+1,  the  third  word 
REGI0Nh-2^  etc;  the  second  line  image  is  assumed  to  begin  in  REGI0N-L23^  etc. 

If  R  /  0,  the  second  word  of  REGI0N  is  assumed  to  be  REGI0N-1,  the  third 

word  REGION-2.,  etc.;  the  second  line  image  is  assumed  to  begin  in  REGI0N-23?  etc 


The  parameters  F0RMAT  and  D : 

FORMAT  is  the  location  of  the  first  word  of  the  format  specification 
D  specifies  the  order  in  which  the  format  specification  is  stored: 

If  D  =  0,  the  second  word  of  the  format  specification  is  in  F0RMAT+1,  the 

third  in  F0RMAT+2,  etc. 

If  D  /  0,  the  second  word  of  the  format  specification  is  in  F0RMAT-1,  the 
third  in  F0RMAT-2,  etc. 
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Properties  of  the  format  specification  : 

The  kth  character  described  by  the  format  specification  for  a  line 
image  is  stored  as  the  kth  character  of  the  line  image  created,  where  the 
mth  word  of  the  line  image  contains  characters  6(m-l)+l  to  6m  inclusive.   The 
characters  within  a  word  are  ordered  from  left  to  right. 

A  format  specification  describing  more  than  133  columns  is  an  I/O 
error;  control  is  transferred  to  the  I/O  error  return.   If  the  user  is  in 
fact  creating  records  whose  maximum  permissible  length  M  is  less  than  133 
characters,  a  format  specification  specifying  more  than  M  characters  may  not 
be  detected. 

The  I/O  error  return  : 

Format/conversion  errors  (l),  (2),  and  (5)  (see  section  6.3.6.3.^.) 
may  occur  during  execution  of  .K0LEK.   (Error  (l)  is  the  format  error  described 
in  the  preceding  section.)   The  message  describing  the  error  is  printed  and 
control  transferred  to  the  i/O  error  return  when  the  error  is  detected.   No 
part  of  the  line  image  being  created  when  the  error  was  detected  is  transferred 
to  REGI0N. 

The  standard  I/O  error  return  is  described  in  section  6.3.6.3.2.   A 
non-standard  I/O  error  return  may  be  specified  by  the  user  (section  6. 3.6.3. 3-)- 

For  a  more  complete  discussion  of  i/o  errors  and  error  returns,  see 
section  6.3.6.3. 

An  example  of  the  use  of  ,K0LEKs 

Assume  of  block  of  storage  extending  from  RGN  to  RGN+K,  where 
K  >  h^> ,   the  format  specification 

FMT  BCI   *,1H0   2RA=   F6.1,    3X,    2HB=   F6.1/8H  GAMMA=    3F  7-1* 

and  C(A)   =  70.,    C(B)   =   3-6,    C(G)   =   30.3,    C(G+l)   =   33-2,    C(G+2)   =  37-6. 

After  execution   of 


CALL 

.K0LEK 

STR 

RGN 

STR 

FMT 

STR 

A 

STR 

B 

STR 

G,,G+2 

STR 
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locations  RGN  to  RGN+^5  contain  the  two  line  images 


J        8      0  1 

C(RGN4j)J0A=bb7  0 . Obbb 


B=bbb3 
(second  line  image) 


3  I   ^ 

,6bbbb  bbbbbb 


22 


bbbbbb 


23 


bbGAMM 


2k 


25 


26 


27 


A=bbb  3  0. 3bbb  3 3 . 2bb  b  37 . 6b 


28 


bbbbbb 


^5 


bbbbbb 


where  "b"  denotes  BCD  blank  and  all  words  whose  contents  are  not  displayed  are 
filled  with  BCD  blanks. 

The  records  produced  by  .K0LEK  have  the  form  of  BCD  records  to  be 
transmitted  to  the  system  output  tape. 

6.3.5.IO.   .DISTB 

To  convert  BCD  line  images  in  a  given  region  of  core  storage  according 
to  a  format  specification  and  assign  the  results  of  conversion  to  a  given  i/o 
list.   The  line  images  are  assumed  to  have  the  format  that  card  images  read  in 
by  SYSRIT  and  line  images  read  in  by  SYSRUD  have. 


The  calling  sequence  : 


CALL     .DISTB 
STR     REGI0N,,R 
STR     F0RMAT„D 
(I/O  list) 
NORMAL  RETURN 


The  parameters  REGI0N  and  R  : 

REGI0N  is  the  base  address  of  the  block  of  storage  in  which  the 
sequence  of  BCD  line  images  to  be  converted  by  .DISTB  is  stored.   The  line 
images  are  assumed  to  contain  23  words,  and  each  word  to  contain  6  BCD 
characters,  ordered  from  left  to  right.   Only  those  characters  in  each  record 
referred  to  by  the  format  are  processed  by  .DISTB.   Observe  that  the  line 
images  are  assumed  to  have  the  format  that  line  images  read  in  by  SYSRIT  or 
SYSRUD  have. 
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R  specifies  the  direction  in  which  the  block  REGI0N  extends: 
If  R  =  0,  the  second  word  of  REGI0N  is  assumed  to  he  REGI0N+1,  the  third  word 
REGI0N+2,  etc. |   the  second  line  image  is  assumed  to  begin  in  REGI0N+23,  etc. 

If  R  /  0,  the  second  word  of  REGI0N  is  assumed  to  be  REGI0N-1,  the  third  word 
REGI0N-2,  etc, |  the  second  line  image  is  assumed  to  begin  in  REGI0N-23,  etc. 

The  parameters  F0RMAT  and  Ds 

F0RMA.T  is  the  location  of  the  first  word  of  the  format  specification. 

D  specifies  the  order  in  which  the  format  specification  is  stored: 
If  D  =  0,  the  second  word  of  the  format  specification  is  in  F0RMA.T+1,  the 
third  in  F0RMAT+2,  etc, 

If  D  /  0,  the  second  word  of  the  format  specification  is  in  F0RMA.T-1,  the 
third  in  F0RMA.T-2,  etc. 

Properties  of  the  format  specifications 

The  kth  character  described  by  the  format  specification  for  a  line 
image  is  kth  character  of  the  line  image  where  the  mth  word  of  the  line  image 
contains  characters  6(m-l)+l  to  6m  inclusive,  and  the  characters  within  a  word 
are  ordered  from  left  to  right. 

A  format  specification  describing  more  than  133  columns  is  an  I/O 
error ^  control  is  transferred  to  the  I/O  error  return.   If  the  user  is  in  fact 
converting  records  whose  maximum  permissible  length  M  is  less  than  133 
characters,  a  format  specification  specifying  more  than  M  characters  may  not 
be  detected. 

The  I/O  error  return  I 

Format /conversion  errors  (l),  (2),  (3);  and  (k)    (see  section 
6.3.6.3«^-»)  ™ay  occur  during  execution  of  .DISTB.   (Error  (l)  is  the 
format  error  referred  to  in  the  preceding  section).   The  message 
describing  the  error  is  printed  and  control  transferred  to  the  i/O  error 
return  when  the  error  is  detected.   Conversion  of  the  line  image  is  not 
completed. 
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The  standard  I/O  error  return  is  described  in  section  6.3.6.3.2, 
A  non-standard  I/O  error  return  may  be  specified  by  the  user  (section 

6.3.6.3.3.). 

For  a  more  complete  discussion  of  i/o  errors  and  error  returns, 
see  section  6.3.6.3. 


Example  of  the  use  of  .DISTB: 

Let  RGN  be  a  block  containing  the  line  images  described  below 
(characters  denoted  by  #  and  cells  whose  contents  are  not  specified  are 
ignored  by  .DISTB  in  this  example;  "b"  denotes  BCD  blank). 

(second  line  image) 


J 


C(RGN+J) 


0 


bbbl35  0bbb5b  bb7bbl 


mm 


\- 


22      23 


2k      ] 


Execute 


CALL 

.DISTB 

STR 

RGN 

STR 

FMT 

STR 

P 

STR 

Q+2,,Q 

STR 

R 

STR 

where 


FMT 


BCI  3,I7,3lVF10.2* 


is  a  format  specification  in  the  program. 

After  execution  of  .DISTB,  C(P)  =  1350,  C(Q)  =  10,  C(Q+l)  =  1, 
C(Q+2)  =  5,  C(R)  =  fixed-point  12500. 

Note  that  the  .DISTB  assumes  records  in  a  BCD  string  to  have  the 
format  in  which  card  images  are  read  in  by  SYSRIT  and  line  images  are  read 
in  by  SYSRUD. 
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6. 3- 5 -II-   Printing  Input  Records  Processed  by  the  I/O  With  Conversion  Subroutines 

Input  records  processed  by  the  i/O  with  conversion  subroutines  may 
optionally  be  printed  out  at  the  time  of  processing.   The  resulting  listing 
may  for  some  programs  provide  a  satisfactory  record  of  inputs,  or  may  be  useful 
in  debugging  when  it  is  suspected  that  the  input  deck  and  program  segments 
performing  input  are  out  of  phase  with  each  other.  After  the  printing  option 
has  been  turned  on,  every  input  record  is  printed,  without  regard  to  its 
source.   The  normal  condition  of  no  printing  may  be  restored.   Two  subroutines 
are  available  for  controlling  the  input -printing  option:   I0RLIS  is  the  simpler 
and  shorter  and  should  suffice  for  most  users;  I0HLST  allows  use  of  the  first 
character  of  the  input  record  for  carriage  control.   They  are  described  in 
succeeding  paragraphs. 

Subroutine  I0HLIS 

I0HLIS  prints  entire  input  records  of  less  than  127  characters  and 
the  first  127  characters  of  longer  records,  either  single-  or  double -spaced. 
The  first  character  of  the  input  record  is  printed  in  the  sixth  print  position. 

The  calling  sequence  of  I0RLIS  is: 

CALL  I0HLIS       (SCATRE) 
TXH  L(T) 

NORMAL  RETURN 

where  L(t)  is  the  location  of  the  parameter  T  described  belowj 

CALL  I0HLIS(T)    (FORTRAN  and  FASTRAN) 

EXECUTE  I0HLIS.(T).       (MAD) 

m  •     «   4--      •+    ^   or  I0HLIS.  (T) 
The  parameter  T  is  a  float mg -point  number.    r  v  ' 

If  T  =  0.,  printing  is  turned  off. 

If  T  =  1.,  records  are  printed  single-spaced, 

If  T  >  2.,  records  are  printed  double-spaced. 

Subroutine  I0HLST 

I0HLST  prints  either  the  first  131  or  123  characters  of  input  records. 
The  records  may  be  either  single-  or  double -spaced,  or  the  first  character  of 
the  record  used  for  carriage  control.   If  the  former,  the  first  character  of 
the  record  is  printed  in  the  first  print  position;  if  the  latter,  the  second 
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character  of  the  record  may  be  printed  in  either  the  first  or  second  print 
position,  so  that  records  printed  with  first -character  carriage  control  and 
records  printed  without  it  may  he  aligned  as  the  user  chooses „ 
The  calling  sequence  of  I0HLST  is : 

CALL  I0HLST  (SCATRE) 

TXH  L(T) 

where  L(T)  is  the  location  of  the  parameter  T  described  belowj 

CALL  I0HLST(T)  (FORTRAN  and  FASTRM) 

EXECUTE  I0HLST.(T)  or  I0HLST.(T)    (MAD) 

The  parameter  T  is  a  float ing -point  number. 

If  T  =  0,;  printing  is  turned  off„ 

If  T  =  \Q,   records  are  printed  single-spaced^ 

If  T  =  2a,    records  are  printed  double -spaced„ 

If  T  =  3»j  "the  first  character  of  the  record  is  used  for  carriage  control  and 

the  second  character  is  printed  in  print  position  1» 

If  T  >  k„,   the  first  character  of  the  record  is  used  for  carriage  control  and 

the  second  character  is  printed  in  print  position  2„ 
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6.3.6.    End-of-File,  End-of-Tape,  and  I/O  Error  Returns  of  the  I/O  with 
Conversion  Routines 

The  Normal  Return  of  each  of  the  I/O  with  conversion 
subroutines  is  to  the  location  following  the  STR  0,0,0  that 
terminates  the  I/O  list. 

Control  is  not  transferred  to  the  Normal  Return  if 
one  of  the  following  exceptional  conditions  has  occurred  during 
execution  of  the  I/O  with  conversion  subroutines: 

an  end-of-file  mark  is  encountered  during  tape  reading; 

an  end-of-tape  mark  is  encountered  during  writing  of  a 

utility  tape; 
an  I/O  error  is  detected  in  the  calling  sequence,  the  format 

specification,  or  the  information  to  be  transmitted. 

Each  I/O  with  conversion  subroutine  is  programmed  to 
transfer  control  to  the  "Standard  End-of-File  (End-of-Tape ,  I/O 
Error)  Return"  of  the  subroutine  whenever  the  corresponding 
exceptional  condition  occurs.   The  "Standard  End-of-File,  (End- 
of-Tape,  I/O  Error)  Procedure"  is  then  executed.   The  standard 
return  and  procedure  may  depend  upon  parameters  of  the  calling 
sequence.   (in  some  cases,  at  the  standard  return,  execution 
of  tiie  I/O  with  conversion  routine  continues  exactly  as  if  no 
exceptional  condition  had  occurred). 

If  the  standard  procedure  does  not  treat  some  occur- 
rence of  an  exceptional  condition  satisfactorily,  it  is  possible 
for  the  user's  program  to  intervene.   By  entering  subroutine 
SETE0F  (SETETT,  SETERR)  the  user  may  set  a  non-standard  End-of-File 
(End-of-Tape*  I/O  Error)  Return;  that  is,  cause  control  to  be 
transferred  to  a  location  of  his  choice  after  every  subsequent 
End-of-File  (End-of-Tape,  I/O  Error)  condition  that  occurs  during 
execution  of  an  I/O  with  conversion  subroutine.   The  user  may  then 
take  some  appropriate  action,  subject  to  limitations  imposed  by  the 
operating  system,  the  state  of  the  machine  when  control  is  trans- 
ferred, and  the  information  furnished  him  by  the  I/O  with  conversion 
subroutine.   It  is  also  possible  to  supplant  a  non-standard 
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End-of-File  (End-of-Iape,  I/O  Error)  Return  by  the  corresponding 
standard  return. 

It  is  important  to  understand  that  the  setting  of  a  non- 
standard return  for  a  given  type  of  exceptional  condition  and  the 
restoration  of  the  corresponding  standard  return  have  no  effect 
whatsoever  upon  the  treatment  of  the  other  exceptional  conditions. 

If  only  part  of  the  occurrences  of  a  given  exceptional  con- 
dition require  special  treatment  while  the  corresponding  return  is  a 
non-standard  return,  theuser  must  be  able  to  distinguish  them  from 
the  other  occurrences.   Errors  can  be  distinguished  by  the  information 
made  available  at  non-standard  returns:   at  end-of-file  and  end-of-tape 
returns,  the  logical  number  of  the  tape  unit  is  available;  at  I/O 
error  returns,  an  error  code  is  available. 

The  End-of-File  condition  is  discussed  in  section  6.3.6.1., 
the  End-of-Tape  condition  in  section  6.3. 6. 2.,  and  the  I/O  Error 
condition  in  section  6.3.6.3.   At  least  the  following  information  is 
given  for  each  of  the  conditions: 

the  state  of  the  machine  when  the  condition  occurs; 

the   standard  return(s)    and  procedure(s ); 

how  to  set  a  non-standard  return; 

the  information  available  when  control  is  transferred  to 
a  non-standard  return; 

how  to  restore  the  standard  return. 

6.3.6.I.   The  End-of-File  Return 

6.3.6.1.1.  Position  of  the  Tape  at  the  End-of-File  Return 

The  system  input  tape  is  immediately  before  the  end-of-file 
mark.   It  cannot  be  repositioned  by  the  user. 

A  utility  tape  is  positioned  immediately  after  the  end-of- 
file  mark. 

6.3.6.1.2.  The  Standard  End-of-File  Return 

If  the  I/O  with  conversion  routine  is  reading  the  system 
input  tape,  at  the  standard  end-of-file  return  the  message 
****  ALL  INPUT  DATA  HAVE  BEEN  PROCESSED. 
AT  L0C  XXXXX 
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(where  XXXXX  is  the  location  from  which  the  I/O  routine  was  called) 
is  printed  and  the  job  is  terminated,  by  subroutine  SYSTEM. 

If  an  I/O  with  conversion  subroutine  is  reading  a  utility- 
tape,  tnen  at  the  standard  end-of-file  return,  execution  of  the  I/O 
with  conversion  subroutine  continues  exactly  as  if  a  BCD  line  image 
had  been  read.  The  line  image  which  is  converted  according  to  the 
format  specification  consists  entirely  of  blanks.  Consequently,  if 
the  end-of-file  return  is  standard,  anomalous  inputs  may  result  from 
reading  an  end-of-file  mark. 

6.3.6.1.3.  Non-Standard  End-of-File  Return 

The  subroutine  entered  to  set  a  non-standard  end-of-file 
return  has  two  parameters :   the  non-standard  end-of-file  return 
NRTRN,  and  NTAPE. 

After  the  non-standard  end-of-file  return  NRTRN  has 
been  set,  whenever  an  end-of-file  is  read  by  an  I/O  with 
conversion  subroutine  or  a  MAD  or  FORTRAN  I/O  with  conversion 
statement 

(l)   the  logical  tape  number  of  the  tape  being  read  is 
stored  in  the  address  field  of  NTAPE 
and   (2)   control  is  transferred  to  the  location  or  statement 
specified  by  the  parameter  NRTRN. 

6.3.6.1.4.  Setting  a  Non-Standard  End-of-File  Return 

The  calling  sequence  for  setting  a  non-standard  end-of- 
file  return  is : 

EXECUTE  SETE0F. (NRTRN,  NTAPE)  or   (MAj) 
where  NRTRN  is  of  statement  Tab eT  mode'  and  NTAPE  is  of  integer  mode 

CALL  SETE0F  (SCATRE) 

TXH  NRTRN 

TXH  NTAPE 

CALL  SETEFL(NRTRN,  NTAPE)    (FORTRAN  and  FASTRAN) 
where  the  non-standard  end-of-file  return  NRTRN  is  specified  as 
follows:   NRTRN  is  a  variable  of  an  Assigned  G0  TjZ5.   The  statement 
number  most  recently  ASSIGNed  to  NRTRN  is  the  statement  number 
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of  the  desired  non-standard  end-of-file  return.   (Examples  of 
this  use  of  Assigned  G0  T0's  and  the  associated  programming 
may  be  found  in  section  6.3.6»3»7«)« 

6.3.6.I.5.   Restoring  the  Standard  End-of-File  Return 

The  calling  sequence  for  restoring  the  standard  end-of-file 
return  is; 

EXECUTE  SETE0F.(L)  or       (MAD) 

v,    t   n  SETE0F.  (L) 

where  L  =  0  "   v  ' 

CALL  SETE0F  (SCATRE) 

TXH  L 
where  the  contents  of  L  is  0 

CALL  SETEFL(L)         (FORTRAN  and  FASTRAN) 
where  L  =  0 

6.3.6.2.   End-of-Tape  Return 

An  end-of-tape  condition  can  be  detected  only  while  a  tape 
is  being  written,  and  cannot  be  detected  while  a  tape  is  being  read. 
An  end-of-tape  condition  on  the  system  output  tape  is  handled  auto- 
matically by  an  Execution  Coordination  Routine;  the  user's  program 
is  not  informed  of  the  condition  and  the  user  need  not  concern 
himself  with  it. 

6.3.6.2.1.      The   Standard  End-of-Tape  Return 

If  an   end-of-tape   condition  occurs   during  writing  of  a  utility 
tape,    five   end-of-tape  marks   are  written  after  the  last  record  written, 
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the  tape  is  rewound  and  unloaded,  and  the  operator  is  informed  of  the  condition 
by  a  message  on  the  on-line  printer.   Unless  the  user  has  requested  the  mounting 
of  another  reel  of  tape  and  continuation  of  the  job,  the  job  is  them  terminated 
by  the  operator. 

6.3.6.2.2.  Position  of  the  Tape  at  the  Non-Standard  End-of-Tape  Return 
When  control  is  transferred  to  a  non-standard  end-of-tape  return, 

the  tape  is  positioned  at  the  end  of  the  last  record  written,  i.e.,  after  the 
end-of-tape  mark.   No  further  warning  of  the  approach  of  the  physical  end  of 
the  tape  will  be  given  if  more  records  are  written  on  the  tape. 

6.3.6.2.3.  Non-Standard  End-of-Tape  Returns 

Subroutine  SETETT  is  used  to  set  non-standard  end-of-tape  returns^ 
its  use  is  described  in  the  next  section.   SETETT  has  two  parameters:   the 
non-standard  end-of-tape  return,  NRTRN,  and  NTAPE. 

After   the  non-standard  end-of-tape  return  NRTRN  has  been   set, 
whenever   an   end-of-tape  mark  is   encountered  on  a  utility  tape  being  written 
by  an   I/O  with  Conversion  routine  or   a  MAD  or  FORTRAN  I/O   statement, 
(l)      the   logical  tape  number   of  the   tape  being  written   is 
stored  in  the   address   field  of  NTAPE 
and  (2)      control  is   transferred  to  the   location  or   statement    specified 

by  the  parameter  NRTRN. 

6. 3*6.2. U.   Setting  a  Non-Standard  End-of-Tape  Return 

The  calling  sequence  for  setting  a  non-standard  end-of-tape  return  is: 

CALL  SETTET  (SCATRE) 

TXH   NRTRN 

TXH   NTAPE 

EXECUTE  SETETT.  (NRTRN,  NTAPE)  or        ^    ^ 
SETETT . ( NRTRN,  NTAPE ) 
where  NRTRN  is  of  statement  label  mode  and  NTAPE  is  of  integer  mode 

CALL  SETETT  (NRTRN,  NTAPE)  (FORTRAN  and  FASTRAN) 

where  the  non-standard  end-of-tape  return  NRTRN  is  specified  by  one  of 

the  techniques  described  in  sections  6.3.6.1.4.  and  6.3.6.3. 1- 
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6.3.6.2.5.   Restoring  the  Standard  End-of-Tape  Return 

The  calling  sequence  for  restoring  the  standard  end-of-file  return  is: 
in  SCATRE  programs       CALL   SETETT  (SCATRE) 

TXH    L 
where  the  contents  of  L  is  0 

in  MAD  programs-         EXECUTE  SETETT.  (L)  or  (MAD) 

SETETT. (L) 
where  L  =  0 

in  FORTRAN  programs      CALL  SETETT (L)  (FORTRAN  and  FASTRAN) 

where  L  -   0. 

6.3.6.3.   I/O  Errors 

6.3.6.3.I.   Definition  of  I/O  Error 

In  this  write-up  I/O  errors  are  errors  in  the  calling  sequence, 
format  specification,  or  information  to  be  transmitted  detected  by  the  I/O 
with  conversion  subroutines  or  by  .  I0H,  the  subroutine  that  interprets  format 
specifications  and  performs  the  conversion.   In  theory,  at  least,  I/O  errors 
are  always  attributable  to  the  user.   I/O  errors,  as  here  defined,  do  not 
occur  during  the  execution  of  the  Execution  Coordination  Subroutines, 

Detection  of  an  I/O  error  results  in  transfer  of  control  to  the 
I/O  error  return  (sections  6. 3-6. 3-2.  and  6.3.6.3«3»)« 

Errors  detected  by  the  I/O  with  conversion  subroutines  are  listed 
in  the  descriptions  of  the  respective  subroutines.   For  the  sake  of  brevity, 
errors  detected  by  .  I0H,  hereafter  called  format/conversion  errors,  are 
listed  in  section  6.3. 6.3.^.^  the  format/conversion  errors  which  may  occur 
during  execution  of  each  subroutine  are  also  listed  in  that  subroutine's  writeup. 

Numerous  other  error  conditions  related  to  input/output,  for 
example,  a  bad  magnetic  tape,  may  occur  during  execution  of  I/O  with 
Conversion  Subroutines.   Some  of  these  errors  may  cause  a  message  to 
appear  on  the  printed  output.   But  it  is  only  after  the  I/O  error  defined 
above  has  occurred  that  control  is  transferred  to  the  I/O  error  return  and  it  becomes 
possible  for  the  user's  program  to  intervene.   The  other  error  conditions 
are  corrected  by  the  operator  or  the  maintenance  personnel. 
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6. 3*6. 3-2.   The  Standard  I/O  Error  Procedure 

(1)  A  message  describing  the  error  is  printed  by  the  I/O  sub- 
routine that  detects  the  error.   It  is  followed  by  the  line  l/fi   R0UTINE 
CALLED  FR0M  L0CATI0N  XXXXX. 

The  integer -valued  I/O  error  code  generated  by  the  subroutine 
detecting  the  error. is  not  made  available  to  the  user  at  the  standard  I/O 
error  return. 

(2)  The  job  is  terminated  by  subroutine  SYSTEM,  without   any 
core  dump  being  given,  unless  a  $  l/0  DUMP  control  card  and  a  control  card 
specifying  a  type  of  dump  ($  DUMP,  $LTBDUMP,  $  FULL  DUMP)  are  in  the  first 
group  of  $  Control  cards  in  the  job  deck.   If  such  control  cards  appear,  the 
specified  type  of  core  dump  is  given  when  the  job  is  terminated  by  SYSERR. 

6.3.6.3.3.   Non-Standard  I/O  Error  Returns 

The  subroutine  SETERR  is  used  to  set  a  non-standard  I/O  error 
return;  its  use  is  described  in  the  next  section.   SETERR  has  two  parameters: 
the  non-standard  I/O  error  return,  NRTRN,  and  NERR. 

After  the  non-standard  I/O  error  return  NRTRN  has  been  set, 
whenever  an  I/O  error  occurs  during  execution  of  an  I/O  with  conversion 
subroutine  or  a  MAD  or  FORTRAN  I/O  statement, 

(1)  the  message  describing  the  error  is  printed-- 
(see  (1)  of  6.3.6.3.2. ) 

(2)  the  error  code  corresponding  to  the  I/O  error  is  stored 
in  the  address  field  of  NERR 

and   (3)   control  is  transferred  to  NRTRN. 

The  error  message  and  error  codes  and  descriptions  of  the  errors 
are  given  in  section  10  of  Appendix  11  of  this  manual.   Be  testing  the  value 
of  tne  error  code,  the  user  may  differentiate  those  occurrences  of  I/O  errors  at 
which  his  program  is  to  take  remedial  action  from  other  occurrences. 

It  is  usually  not  possible,  after  a  format/conversion  error  has 
occurred,  to  simply  pass  over  the  field  being  processed  and  continue  processing 
the  next  field;  see  section  6.3.6.3.6. 
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The  calling  sequenc  ;  for  setting  a  non-standard  I/O  error  return  is: 

CALL   SETERR  (SCATRE) 

TXH    NRTRN 

TXH    NERR 

EXECUTE  SETERR. (NRTRN,  NERR)  or      (MAD) 
SETEEffi. (MRTRN,  NERR) 
where  NRTRN  is  of  statement  label  mode  and  NERR  is  of  integer  mode 

CALL   SETERR (NRTRN,  NERR)        (FORTRAN  and  FA3TRAN) 

where  the  non-standard  I/O  error  return  NRTRN  is  specified  by  one  of  the 

techniques  described  in  sections  6.3«6.1.4.  and  6.3.6.3.7. 

The  calling  sequence  for  restoring  the  standard  I/O  error  return  is: 


CALL   SETERR 
TXH    L 
where  the  contents  of  L  is  0 


where  L  =  0 


where  L 


EXECUTE  SETERR. (L)  or 
SETERR. (L) 

CALL   SETERR (L) 


(SCATRE) 

(MAD) 
(FORTRAN  and  FASTRAN) 


6.3.6.3.4.   Format/Conversion  Errors 

Format/Conversion  errors  are  the  I/O  errors  detected  by  .  I0H, 
the  routine  that  scans  and  interprets  format  specifications  and  performs 
input/output  conversion. 

The  format/conversion  errors  are  listed  below;  the  first  line  of 
each  description  is  (nearly)  the  error  message  associated  with  the  error; 
throughout  this  writeup  the  error  is  referred  to  by  this  name. 

(1)  FORMAT  SPECIFIES  MORE  THAN  XXX  C0LUMNS. 

Occurs  during  both  input  and  output.   XXX  is  the  maximum  number 
of  columns  permitted  by  the  input/output  medium  and  the  equip- 
ment being  used.   These  maxima  are  tabulated  in  section  6.3. 2.15« 

(2)  BAD  F0RMAT. 

Occurs  during  both  input  and  output.   This  error  is  usually  due 
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to  an  illegal  basic  field  type,  a  left  (right)  parenthesis 
without  a  corresponding  right  (left)  parenthesis,  too  many- 
levels  of  parenthesization,  or  a  field  width  of  zero. 
(3)   BAD  CARD. 

Occurs  during  input  only.   A  field  in  the  card  or  line  image 
"being  processed  contains  some  character  not  permitted  in  this 
type  of  field  -  see  the  pertinent  basic  field  description  for 
legal  forms  of  input  in  the  field. 
{k)      NUMBER  LIES  0UTSIDE  MACHINE  RANGE. 

Occurs  during  input  only.   The  field  being  processed  contains  a  number 
whose  machine  representation  of  the  format-specified  type  does 
not  fit  in  a  709^  machine  word.   Bounds  are  given  in  the  descrip- 
tion of  each  basic  field  type. 

(5)   NUMBER  T00  LARGE  FOR  SPECIFIED  FIELD  WIDTH. 
Occurs  during  output  only.   The  string  of  BCD  characters 
resulting  from  I-,  F-,  or  E-  conversion  is  longer  than  the 
allocated  field.   Excess  length  of  the  string  resulting  from 
K-,  0-,  A-,  or  C-  conversion  is  not  an  I/O  error;  the  string 
is  truncated  to  fill  the  allocated  field  by  a  rule  given  in  the 
discussion  of  the  basic  field  description. 

It  is  possible  for  the  calling  program  to  set  a  switch  in  the 
conversion  routine  .  Ij#H  so  that  the  "number  too  large  for  specified  field 
width"  condition  is  not  treated  as  an  I/O  error  (see  section  6.3.6.3.5. )• 
The  recognition  and  treatment  of  all  other  types  of  I/O  errors  is  not 
affected. 

Observe  that  a  field  of  width  0  is  considered  a  BAD  F0RMAT 
(type  (2))  error,  not  a  type  (5)  error. 

6. 3.6.3. 5-   Causing  the  Conversion  Routine  to  Ignore  the  "Number  too  large  for 
specified  field  width"  Error. 
The  "Number  too  large  for  specified  field  width"  error,  error  (5) 
of  section  G.^.G.^.h. ,    is  more  fully  described  there.   After  the  switch 
I0HSIZ  in  the  conversion  routine  . I0H  is  set  by  the  instructions 
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CALL     I0HSIZ 

TXH      M 
where  the  contents  of  M  are  non-zero, 

a  "number  too  large  for  specified  field  width"  condition  is  no  longer  an 
I/O  error.   If  W  is  the  field  width,  the  W  rightmost  characters  of  the  BCD 
string  are  printed  or  punched  in  the  specified  field  (excess  characters 
to  the  left  are  lost)  and  output  continues.   (W  is  >  0,  since  the  field  of  0 
width  is  a  type  (2)  error.) 

The  switch  I0HSIZ  may  be  reset  to  normal  status  by  executing 

CALL     I0HSIZ 

TXH      L 
where  the  contents  of  L  are  zero.   Thereafter  all  occurrences  of  the 
"number  too  large  fpr  specified  field  width"  condition  are  treated  as  I/O 
errors. 

6. 3* 6. 3«6.   Limitations  on  a  Non-Standard  I/O  Error  Procedure  Following  a 
Format/Conversion  Error 
At  the  time  control  is  transferred  to  a  non-standard  I/O  Error 
Return,  the  current  input  BCD  string  being  converted  (BCD  string  to  be 
output)  is  still  in  the  working  storage  of  conversion  routine  .  Ij#H. 
However,  if  the  I/O  with  Conversion  Subroutine  is  re-entered,  another 
input  card/line  image  is  read  (the  BCD  output  string  is  initialized 
to  blanks).   Therefore  it  is  in  general  not  feasible  to  skip  over  the 
current  basic  field  specification  and  begin  processing  the  next.   It  is 
evident  that  complex  programming  would  be  necessary  to  minimize  the 
amount  of  input/output  omitted,  especially  if  the  current  format 
specification  describes  multiple  card/line  images. 

6.3.6.3.7.   Setting  End-of-File,  End-of-Tape,  and  I/O  Error  Returns  in 
FORTRAN  and  FASTRAN  Programs 
As  noted  in  the  discussion  of  the  respective  non-standard  returns, 
subroutines  SETEFL,  SETETT,  and  SETERR  may  be  used  in  FORTRAN  and  FASTRAN  programs  to 
set  non-standard  end-of-file,  end-of-tape,  and  I/O  error  returns.   Because 
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a  statement  number  is  not  permitted  as  an  argument  in  a  FORTRAN  CALL  statement, 
one  of  the  programming  tricks  given  in  this  section  must  be  used  to  specify 
the  statement  number  of  the  non-standard  return  to  the  routine  that  sets  it. 
The  techniques  are  described  only  for  the  end-of-file  return;  only  the 
subroutine  name  need  be  changed  to  set  the  other  returns  by  these  techniques. 
The  calling  sequence  for  SETEFL  is  ; 

CALL  SETEFL  (NEFN,  DTAPE) 
where  NEFN  refers  to  the  statement  to  which  control  is  to  be  transferred 
when  an  end-of-file  is  read  on  a  utility  tape  or  the  system  input  tape. 
NEFN  may  be  set  by  either  of  two  methods  referred  to  below.   DTAPE  is  the  name 
of  a  location  where  SETEFL  will  store  the  tape  number  on  which  the  end-of-file 
was  found.   This  number  will  be  put  in  the  address  portion  of  the  word,  and 
so  it  cannot  be  referred  to  as  an  integer  or  as  a  floating  point  number. 
However,  it  may  be  referred  to  in  a  Boolean  statement  (B  in  column  l). 

In  order  to  set  NEFN  to  a  statement  number,  use  a  combination 
of  the  ASSIGN  statement  and  an  assigned  G0  T0.   F0RTRAN  and  FASTRAN  consider  an 
ASSIGN  statement  without  an  assigned  G0  T0  an  error  in  the  program,  so  both 
are  needed.   There  are  two  easy  methods  to  accomplish  the  purpose.   Suppose, 
for  example,  it  is  desired  to  go  to  statement  number  101  on  reading  an  end-of-file, 
Method  1: 

ASSIGN  1  T0  NEFN 
G0  T0  NEFN,  (l,10l) 
1  ASSIGN  101  T0  NEFN 

CALL  SETEFL  (NEFN,  DTAPE) 

RIT7,10,etc. 

101  control  is  transferred  here  if  an  end-of-file 

is  encountered. 
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Method  2: 


1 
2 


ASSIGN  101  T0  NEFN 

IF  (1.0)  1,1,2 

00  T0  NEFN,  (101) 

CALL  SETEFL  (NEFN,  DTAPE) 


RIT7,10,etc. 


101 


control  is  transferred  here  if  an  end-of-file 
is  encountered 


The  end-of-file  return  may  also  be  set  by  a  third  method: 
col.  1     col.  7 
F  SUB 

CALL  SETEFL  (SUB,  DTAPE ) 
where  SUB  is  a  subroutine.   With  this  method,  however,  the  user  cannot  return 
easily  to  the  program  in  which  the  input  statement  is  located.   DTAPE  is  lost, 
unless  it  is  in  C0MM0N. 

In  order  to  reset  the  end-of-file  return  to  the  standard  system 
return,  use 

CALL  SETEFL(O) 
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Appendix  1.   Carriage  Control  Code 

The  first  character  of  each  record  determines  the  carriage  control 

for  printed  records.   This  character  is  detached  from  the  remainder  of  the 

record  and  is  not  printed.   The  code  for  the  carriage  control  character  under 

the  PORTHOS  system  is  as  follows: 

Left-most  character 
for  pre-print  skip 

Single  space  blank  or  + 

Double  space  0 

Triple  space 

Sheet  eject  (skip  to  next  page)  1 

Skip  to  next  half  page  2 

Skip  to  next  quarter  page  h 

Skip  to  next  sixth  page  6 

The  1^01  peripheral  processor  program  operates  in  the  following 
manner  for  the  above  control  characters;  a  discussion  of  the  carriage  tape 
channels  mentioned  below  may  be  found  in  Reference  Manual,  IBM  1^4-01  Data 
Processing  System,  A2^-1^03-5> 

blank  -  Spaces  one  line  before  printing. 

0  -  Spaces  two  lines  before  printing. 
+   -  Spaces  one  line  before  printing. 

-  Spaces  three  lines  before  printing.   The  blank,  0, 
and  -  are  changed  to  J,  K,  and  L  respectively  for 
proper  carriage  movement  within  the  1^01. 

1  -  Immediate  page  eject;  skip  to  channel.  1. 

-  Skips  to  channel  2  and  spaces  one  line  before  printing. 
(Note:   The  spaces  following  the  skips  are  necessary  for 

proper  positioning  since  the  carriage  tape  can  have  only 

one  punch  on  each  horizontal  line). 
h        -  Skips  to  channel  h   and  spaces  two  lines  before  printing. 
6   -  Skips  to  channel  6  and  spaces  three  lines  before  printing. 
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All  other  characters  are  simply  moved  into  a  pre-set  control  carriage 
order  to  allow  for  additional  spacing  required  by  special  jobs.   Pre-print 
space  suppression  is  not  possible. 

The  carriage  tape  used  in  the  PORTHOS  system  is  punched  as  follows: 

Channel  1  punches  in  13,  79 

Channel  2  punches  in  12,  1+2,  78,  108 

Channel  3 punches  in  ll+,  27,  1*3,  57,  80,  93,  109,  123 

Channel  k   punches  in  11,  26,  kl,  56,  77,  92,  107,  122 

Channel  5  punches  in  15,  28,  kk,  58,  8l,  9I+,  110,  12k 

Channel  6 punches  in  10,  20,  30,  1+0,  50,  60,  76,  86,  96, 

106,  116,  126 

Channel  7  punches  in  9,  25,  39,  55,  75,  91,  105,  121 

Channel  8 punches  in  8,  2l+,  38,  5^,  7^,  90,  1C4,  120 

Channel  9  punches  in  6,  23,  37,  53,  72,  89,  103,  119 

Channel  10  ---  punches  in  5,  22,  36,  52,  71,  88,  102,  118 

Channel  11  ---  punches  in  h,  21,  35,  51,  70,  87,  101,  117 

Channel  12  punches  in  7,  73 

Only  the  characters  listed  previously  and  their  corresponding 
channels  (l,  2,  h,    6,  12)  have  any  significance  when  operating  under  the 
PORTHOS  system  with  a  system  carriage  tape.   The  remaining  punches  in  the 
tape  check  any  skipping  that  would  result  from  the  use  of  characters  other 
than  those  listed. 
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Appendix  3-   Categories  of  Input  Decks 

All  runs  submitted  to  the  709V-^01  System  will  be  separated  into 
categories  which  are  defined  as  follows.   If  a  translation  is  involved 
(i^e.  assemble  or  compile)  under  any  category,  execution  time  punched  in 
ID  card  must  be  3  minutes  or  less  and  pages  punched  in  ID  card  must  be  30 
or  less. 

Shuttle 

Execution  time  no  greater  than  1  minute 

Total  time  no  greater  than  2  minutes 

Execution  printing  no  greater  than  h   pages 

Execution  punching  no  greater  than  50  cards 

No  greater  than  500  assembly  language  cards 

No  greater  than  50  FORTRAN  cards  or  no  greater  than  500  MAD  cards 

or  500  FASTRAN  cards  or  150  ALGOL  cards 
No  greater  than  500  binary  cards 
No  greater  than  100  data  cards 
Non-class  work 
No  $  CLEANUP  cards  and  no  special  requirements 

Category  I 

No  greater  than  3  minutes  execution  time 
No  greater  than  5  minutes  total  time 
No  greater  than  30  pages  execution  printing 
No  greater  than  100  cards  execution  punching 
No  $  CLEANUP  cards 

Be  within  System  with  no  special  problem  requirements 
(as  on  Problem  Specification  Form) 

Category  II 

4-20  minutes  execution  time  if  no  translations  are  involved 
6-20  minutes  total  time  if  translations  are  involved 
Problems  within  System  but  requiring  special  problem 
requirements  in  the  range  0-20  minutes. 

Category  III 

Runs  lying  within  the  range  20  minutes  -  1  hour  with  or 
without  special  problem  requirements  within  System 
or  Relinquish  runs  in  the  range  0-1  hour. 

Category  IV 

Anything  else 

In  addition,  two  special  categories  exist. 

Mathematics  195  student  home  work 

Runs  under  the  special  problem  specification  number  28018 

These  last  two  categories  are  collected  separately  and  run  approximately 

once  per  day  during  the  weekdays- 
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APPENDIX  k 


UNIVERSITY  OF  ILLINOIS 
GRADUATE  COLLEGE 
DEPARTMENT  OF  COMPUTER  SCIENCE 
PROBLEM  SPECIFICATION  (8) 

(See  Problem  Specification  Instructions  for  Clarification) 

(Return  to  Consultant  in  Room  111b,  ERL) 

Check  one:  ILLIAC  II  IBM  709^  Either 

Title  of  Problem  


DO  NOT  WRITE   IN  THIS  SPACE 

Sequence  Number  I — . 1 

Problem  Type       I I 


?r 


Application  Date 


(a)  Submitted  by  (Prime  User)  I  I  |  I  I  I  I  I  |  |  I  I  I  I  '  I  I  ', ^b)  DePt-  I  I  '  '  I  '  \ 


Office  Address 

Other  Names  Associated  with  Running  of  This  Problem: 


(a) 


\i  i  n  n  n  i  i  i  i  1 1 1  i  i  i  iy 

3J    I    I    1    I    I    I    I    I    I    I    I    I    |    I    I    I    I    lb, 
;"'j    I    I    I    I    I    M    1    I    I    1    i    |    I    I    |    I    1,^ 


2 


Phone 


I    I     I    I    I     I    I    I     I    I    I    I    I    I    I    i    I 


i\  i  I  I  i  I  i  1  i  i  i  l  I  I  1  1  1  I  1^ 


IK 


V  "  '  ■ 

Undergraduate  Research  

Training/Education     


I  I  I  I  I  I  I  I  I  I  I  I  I  I  [  \     I  I 

i   i  1  I  i  I  ;   I  i  I  I   I  i  I  i   i 


7^ 
7  2 


I  I  I   I/. 


Graduate  Research 
Other 


X  One :  '  Thesis  Research   

jy,    Faculty  Research  

(c)   If  Training/Education,  Course  No.(  |  |  [Sec.  No.|  \    |Prob.  No.i  |  INo.  of  Students_ 


(e) 
(f) 


Programming  System  to  be  Used 


Total  Time  of  Prob, 


,l_L4Jy<HrsL7U_W*in-  over  a  Period  °l  l_U 7Months 
es  of  Output      Estimated  No.  of  runs    Est.  Pages 


Pages  per  Run_ 


Total  Estimated  Pages  of  Output 

Billing  Information  and  Departmental  Approval  (Do  not  fill  in  for  Training/Education) 

Source  of  Funds  (i.e.,  Contract  Name  and  Number)  

University  Accounting  Number  

Billing  Address  

This  certifies  that  funds  have  been  allocated  to  support  the  above  amount  of 

computation  time. 


(g) 
(h) 


(i) 
(J) 

00 


(m) 
00 


(Authorized  Departmental  Signature 
SPECIAL  PROBLEM  REQUIREMENTS  — 

Fill  out  as  necessary.   If  filled  out,  explain  circumstances  fully  on  reverse 
Number  of  Long  Reserve  Tapes  (Not  Scratch)  |_j_J ./« 
Number  of  Short  Reserve  Tapes (Not  Scratch) 
(Give  length  of  time  for  each  tape  on  rever 

Date  of  first  use  of  tapes  

Low  Density  Permission      


LJrJj 

rse; 


ORIGIN  OF  TAPES: 
DCS 


LEASE 


Buy 


More  than  one  copy  of  printed  output 
Maximum  number  of  copies  |  |  |  of 

Full  dump  

On-line  reader 
On-line  punch 


r/ 


k/(ln  these   cases,    consult  operator 

on  labeling) 

pages   (q)  Approval  for  Training/Education 

i3 


/'(Departmental  Authorized  Signature) 


Direct  Data  Connection  

Special  cards  in  lh02  punch  _ 
Special  cards  on  1^03  printer 
Own  input-output  programming 


-57 

6e 


Relinquishment  of  entire  machine  by  system  

(p)  CRT  Total  frames  for  problem  |  |  |  |  |  | 

(SEE  REVERSE  FOR  DESCRIPTION)  ^a        ^ 


DO  NOT  WRITE  IN  THIS  SPACE 

Approved  by  

Problem  No.  |  |  I  |  I  ; 
DCS  Billing  No.  I  |  f  |  | 


PLEASE  FILL  OUT  (Do  Not  Tear  Off) 

Name 

Office  Address  

(if  possible) 

Phone 


Date 


Problem  Title 


DO  NOT  WRITE  IN  THIS  SPACE 

Approved  by  

Problem  No.  I  |  I  I  |  | 
DCS  Billing  No.  |  |  )  |  | 


(The  Problem  Title  should  be  unique  for  each  Problem  Specification  handed  in  by 
a  given  user  so  that  the  user  can  identify  to  which  problem  this  returned 
portion  of  the  form  pertains. ) 


Briefly  describe  the  nature  of  your  research  problem  and  the  way  in  which  the 
computer  may  be  used  in  its  solution.   Include  some  description  of  the  mathematical 
method  if  other  than  standard  library  routines  are  involved.  Use  additional  sheets 
if  necessary.   Please  phrase  the  description  according  to  the  same  standards  used  in 
scholarly  publication  since  these  abstracts  will  be  published.   Please  use  no 
references,  diagrams,  abbreviations,  undefined  symbols  or  first  person  constructions. 


EXPLANATION  OF  SPECIAL  REQUIREMENTS 


APPEND  DC  5 

LI  SI  CF  I.EPAk  i*tNT   .  ..  t  -» 
It  YCLR  CEPARTMLNT  OR  OFFICE  DDES  NOT  APPLA;-'  Cl<\  THIS  L 1  VI  , 
FLEASF  FSITF  IIS  FULL  NAME  IN  THE  DEPARTMENT  FIELD  IB)  ON  THE  PROBLEM 
SPECIFICATION  FORM  FVFN  THOUGH  IT  *ILL  RECGIRE  MORE  THAN  6 
CHARACTERS. 

ACCY  ACCCLNT4NCY 

ACTGCV  ACCCLNTING  DIVISICN 

ACCKFC  ACCCLNTS  RECEIVABLE 

ACMREC  ADMISSIONS  ANO  RECORDS 

fCV  ADVERTISING 

AAE  AERONAUTICAL  AND  ASTRONAUT IC Al  ENGINEERING 

AGEC  AGS  ICllTURAL  ECCNCMICS 

AGEC  AGRICULTURAL  ECLCAT1CN 

*GE  AGUICULTURAL  ENGINEERING 

AGWEXT  AGRICULTURAL  EJUFNSH1N 

ACR  AGRICULTURE 

AGRON  AGRONOMY 

AFS  AIR  FCNCfc  SCIENCE 

ALUMNI  ALLVM  ASSOCIAIION 

AMCIV  AMERICAN  CIVILIZATION 

AMLIT  AMERICA  X  L I TERATURE 

fNGEN  ANIMAL  GENETICS 

ANNU  ANIMAL  NUTRITICN 

ANS  ANIMAL  SCIENCE 

ANTH  ANTHROPOLOGY 

/KCH  ARCHITECTURE; 

ART  ARI 

ASTR  ASIRC.'JC'^Y 

AUDIT  ALC  IT INU  DIVISION 

^VI  AVIATICN 

EANC  FANCS 

eioPF  eicPFYSics 

EOT  BOTANY 

ECMPL  eUREAU  OF  COMMLMTY  PLANNING 

BECBSR  eLPEAU  OF  ECONOMIC  ANC  BUSINESS  RESEARCH 

BEDRES  BUREAU  OF  ECUCATIGNAL  RESEARCH 

BINRES  BLFFAU  OF  INSTITUTIONAL  RESEARCH 

EURSAR  BURSAR'  S  OFFICE 

GSBA  BUSINESS  ADMINISTRATION,  GkADUATE  SCHOOL 

eED  BUSINESS  EDUCATION 

ELAt,  BUS  INESS  L  Ah 

CZR  CENTER  FCR  ZOONOSES  RESEARCH 

CERE  CERAMIC  ENGINEERING 

CHE  CHEMISTRY  AND  CHEMICAL  ENGINEERING 

CP  CITY  PLANNING 

CE  CIVIL  ENGINEERING 

CRC  CHILCKEN'S  HESEAKCH  CENTER 

CLASS  CLASSICS 

COMM  COMMLMCATICNS 

CMPTCL  COFPTRCLLER'S  OFFICE 

CSL  CCCRCINATCD  SCIENCE  LABORATORY 

CFIA  CAIRY  HERD  IMPROVEMENT  ASSOCIATION 

CS  CAICJY     SCIENCE 

CT  CAIRY     TECHNOLOGY 

CANCE  CANCE 

CCS  OEFABTMENT     CF    CCMPUTER    SCItNCE 

CCLSVS  DIGITAL    COMPUTER     LABORATORY     SYSTFM    DEVELOPMENT 

COS  DIVIS1CM    OF    GENERAL    STUDIES    LAS 

ECCN  ECCNCMICS 

ED  EDUCATION 

EDTEST  EDLCATIONAL  TESTING 

EE  ELECTRICAL  ENGINEERING 

ENCLSH  ENCLISI 

ENGL  ENGLISH  LITFRATURE 

ENTOM  ENTGf'OLGGY 

EDC  EXTENSION  DIVISION,  COUNSELING 

FIN  FINANCE 

FT  FCCC  SCIENCE 

FOR  FOFESTRY 

FR  FRENCH 

GENE  GENERAL  ENGINEERING 

CEOG  CELGPAPHY 

GEOL  CECLCGY 

GER  GERMAN 

CRDCCL  GRACLATE  COLLEGE 

CRK  GREEK 

FED  FEALTH  EDUCATION 

FLTHSV  FE/LfH  SERVICE 

FIST  HISTORY 

EEC  HCME  ECONOMICS 

FORT  HORTICULTURE 


^  ua'an 

H  YC 

INAOf1 

IEC 

IE 

IREC 

ICR 

IGPA 

ILR 

INSURE 

ITAL 

jgurn 

LIR 

LA 

LAI 

LAW 

LAS 

LIBS 

LING 

►  KTG 

MATH 

MKNLY 

ME 

MEDIC 

MRHA 

MRHARC 

MCBIC 

MLS 

MMPE 

MUSIC 

NHS 

NS 

nuce 

CT 

CIR 

PHIL 

PEM 

PEW 

PHYPl A 

PHYCS 

PHYSL 

FLPA 

POLS 

PCRT 

PRGVST 

FSYTRY 

PSYCH 

PUR 

PTV 

PEC 

RHET 

RSCC 

RUSS 

PUSHIS 

SED 

SHCBRC 

SCCS 

SOCW 

SOC 

SCCNS 

SPAN 

SPCH 

CCONSV 

SGS 

SWS 

SSU 

scs 

TCHRPL 

TAM 

LNIHI 

LIFOLN 

VAH 

VCM 

VMS 

VPH 

VPP 

VTEC 

ZOOL 


ACM INISTRAT ION 

EDUCA1 ICN 

ENGINEERING 
FCR  RESEARCH  nN  EXCEPTIONAL  CHILCREN 
CF  CCMMONICATICNS  RESEARCH 
OF  GOVERNMENT  AND  PUBLIC  AFFAIRS 
OF  L/eOR  ANC  INDUSTRIAL  RELATIONS 
OFFICE 


ONAL 

.  RESOURCES 

FOR 

MEN  AND 

GRADUATE 

FOR 

WOMEN 

PE 


HUMANITIES 

HYC  IENF 

INLUSTR I AL 

1NCGSTRIAL 

INLOSTPIAL 

INSTITUTE 

INSTITUTE 

INSTITUTE 

INSTITUTE 

INSUPANCE 

ITALIAN 

JOURNALISM 

LAECR  ANC  INDUSTRIAL  RELATIONS 

LANCSCAPE  ARCHITECTURE 

LAI  IN 

LA* 

LIEERAL  ARTS  ANC  SCIENCES 
LIBRARY  SCIENCE 
LINGUISTICS 
MARKET ING 

MAIHEMA  TICS 

MC  KINLEY  HOSPITAL 

MECHANICAL  ENGINEERING 

MEC  ICINE 

MEN'S  PESIOENCE  HALL  ASSOCIATION 

MEN'S  RESIDENCE  HALL  ASSOCIATION  ROCKET  CLUB 

MICROBIOLOGY 

MILITARY  SCIENCE 

MINING,  METALLURGY  ANU  PETROLEUM  ENGINEERING 

MUb  IC 

NA1LRAL  HISTORY  SURVEY 

NAVAL  SCIENCE 

NUCLEAR  ENGINEERING 

CCCUPAT  IUNAL  THERAPY 

CFFICE  OF  INSTRLCTI 

PH  ILCSCPHY 

PHYSICAL  EDUCATION 

PHYSICAL  EDUCATION 

PHYSICAL  PLANT 

PHYSICS 

PHYSIOLOGY 

PLANT  PATHOLOGY 

POLITICAL  SCIENCE 

PORTUGUESE 

PRC VCST • S  OFFICE 

FSYCI-  IATRY 

PSYCHOLOGY 

PURCHASING    DIVISION 

RACK    AND    TELEVISION 

RECREAT  ION 

RHETORIC 

RURAL     SOCIOLOGY 

RUSSIAN 

RUSSIAN  LANGUAGE  ANC  AREA  STUDIES 

SAFETY  EOUCATICN 

SPtll    HOMES  COLNCIL,  BUREAU  OF  RESIDENTIAL  CONSTRUCTION 

SCCIAL  SCIENCES 

SOCIAL  WORK 

SOC  ICLCGY 

SOIL  CONSERVATION  SERVICE 

SPANISH 

SPEECH  AND  THEATRE 

STATE  CEPARTMENT  OF  CONSERVATION 

STATE  GEOLOGICAL  SURVEY 

STATt  WATER  SURVEY 

STATISTICAL  SERVICES  UNIT 

STLOENT  COUNSELING  SERVICE 

TEACHER  PLACEMENT 

THECRETICAL  ANC  APPLIEC  MECHANICS 

UNIVtRSITY  HIGH  SCHOOL 

CF  ILLINOIS  FOUNDATION 
ANATOMY  ANC  HISTOLOGY 
CLINICAL  MECICINE 
MEDICAL  SCIENCE 
PATHOLOGY  AND  HYGIENE 
PHYSIOLOGY  AND  PHARMACOLOGY 
AND  TECHNICAL  EDUCATION 


UNIVERSITY 
VETERINARY 
VETERINARY 
VETERINARY 
VEIERINARY 
VETERINARY 
VOCATICNAL 
ZCCLCGY 


* 


APPENDIX  6 

UNIVERSITY  OF  ILLINOIS 

GRADUATE  COLLEGE 

DEPARTMENT  OF  COMPUTER  SCIENCE 

REQUEST  FOR  CHANGE  IN  PROBLEM  SPECIFICATION  (6) 

(See  problem  specification  change  instructions  for  clarification) 

(Return  to  Consultant  in  Room  111b,  ERL) 

FIRST  7  LINES  MUST  BE  FILLED  OUT 

Check  one:   ILLIAC  II  _    IBM  709I+  _    Either  _  _  Application  date  

Original  problem  no . Title  of  Problem  


Submitted  by  __^^_   Department 

. _  ^ 

Office  address ^_   Phone  

Billing  information  (Do  not  fill  in  for  Education/Training) 

Source  of  funds  (i.e.,  contract  name  and  number)  

University  accounting  number  

Billing  address  


(FILL  OUT  ONLY  ITEMS  WHICH  HAVE  CHANGED,  AND  EXPLAIN  ON  REVERSE) 

(a)   Prime  user , . 

Other  names  associated  with  this  problem:   Put  A  in  box  if  added,  "D"  if  deleted. 

x  D^ , „  *  □ » 


n'  .    "  k  it 


3U> 


J7K 


(a:    glT 6. 

7  n  8  n 

'  L- V3 ' — '  '  '  '  '  '  ■  '   '  '  '1.0       ' — 'j, — L-JC« 

Check  ONE:   Thesis  Research       Undergraduate  Research  _    Graduate  Research  _ 
Jfc   Faculty  Research  _    Education/Training         Other  (explain) 

1    \     m  j.  -i  i.  •      increase  .  .   ,         ,  increase 

(e)  Total  time: Aa„„aat,      time  by  ,  ,  ,  ,  hrs .  ,,   min.  ,        time  by  ,     months 

decrease       W  '  '  u         ht-^H  decrease      V"1— V, 

(f)  This  certifies  that  funds  have  been  allocated  to 
support  the  above  amount  of  computation  time. 


^j  Check  this  box  if  billing  information        (Authorized  Departmental  Signature) 
above  has  changed, 
(g)  Approval  for  Education/Training  only 

(Authorized  Departmental  signature) 
(h)  SPECIAL  PROBLEM  REQUIREMENTS 

Reserved  tape  requirements: 
(i)  Do  you  wish  all  tapes  previously  assigned  to  you  to  be  removed?   YES  _    NO  _ 

If  you  wish  to  have  removed  some  tapes  previously  assigned  to  you,  list  the  labels 
of  the  tapes  you  wish  to  retain  (give  length  of  time  for  each  new  tape  on  reverse). 
1 2 3 h 5 

7  13       13  It       W      '     '      '      '     '     >¥      i^"     '      '     '      '— JO       si~ '     '     '      '      '      Ji. 

6  7  8  9  10 

37 '■"   ii V?    a fr    ,jt L°    i)    '    '    '    '    '    'u 

^tn ^ n  ORIGIN  OF  TAPES: 

Additional  number  of  long  reserved  tapes  ,  ,  ,       DCS  _    LEASE  _    BUY  _ 
Additional  number  of  short  reserved  tapes,  .  /"      DCS  _  '  LEASE  _  '  BUY  ~ 
Place  in  box  by  special  requirement  an  "A"  if  requirement  is  to  be  added,  "D"  if  deleted. 
( 3 )  ,  I  I  Low  density  permission  (p)n>wn  input-output  programming 

(k)  Q  Up  to   ,   copies  of  printed  output (q)Q  Relinquishment  of  entire  machine  by  system 

(m)  □  Full  dump  *  ( r  ]|~"|'cRT :  Total  add,  frames  for  problem 

-1        ^D  On-line  reader  U  <- 

J  I  On-line  punch 
sl\     [  Direct  data  connection 
I    )  j7CZl  Special  cards  in  1^02  punch 

Q  Special  forms  on  li+03  printer 


DO  NOT  WRITE  IN  THIS  SPACE 
Approved  by  


PLEASE  FILL  OUT  (Do  Not  Tear  Off) 

Name Date 

Address 


(Office,  if  possible) 


DO  NOT  WRITE  IN  THIS  SPACE 
Approved  by  


Phone  Problem  Specification  Number 


PROBLEM  SPECIFICATION  CHANGE  REQUEST 


Please  explain  reason  for  changes. 


DO  NOT  WRITE  BELOW  THIS  LINE 


APPENDIX  7 

UNIVERSITY  OF  ILLINOIS 

GRADUATE  COLLEGE 

DEPARTMENT  OF  COMPUTER  SCIENCE 


REQUEST  FOR  TAPE  LEASE,  TAPE  PURCHASE  OR  TAPE  LABELLING 

Please  Fill  in 

Name     Date 


University  Address Department_ 

Hione  Number Original  Assigned  Problem  Number 

Til le  of  Problem 


Fill  out  this  portion,  if  tapes  are  to  be  leased  or  purchased.   The  lease  period  is  two  years. 
The  lease  price  is  the  price  of  the  tape.   The  Department  of  Computer  Science  will  store 
leased  tapes. 


Number  of  Tapes  to  be  leased:  Short  (1200') 

Long  (2U00*) 

Number  of  Tapes  to  be  purchased:   Short   (1200') 

Long   (  2^00'  ) 

Billing  Information  and  Departmental  Approval 

Source  of  Funds  (i.e.,  Contract  Name  and  Number )_ 

University  Accounting  Number 

Billing  Address 


This  certifies  that  funds  have  been  allocated  to  support  the  above  cost  of  tape(s) 

(Authorized  Departmental  Signature) 

Fill  out  this  portion,  if  tapes  owned  by  the  user  are  to  be  labelled,  and  hand  in  with  the 
tapes  which  are  to  be  externally  labelled  v/ith  your  name  and  problem  number.   Only  heavy  dut 
tapes  stored  under  acceptable  conditions  can  be  placed  on  the  system.   Make  sure  your  tape 
reels  are  identified  with  your  name,  problem  number,  and  department. 

Number  of  Tapes  to  be  labelled:  Short 

Long 


Do  not  Write  Below  this  Line 

Date  Received by 

Date  Labelled  by 


Date  Reserved by 

Remarks : 


Please  Fill  In 

Name Date 

University  Address Department 

Phone  Number Original  Assigned  Problem  Number_ 

Title  of  Problem 


DO  NOT  FILL  IN:  Your  Tape  Identification  Numbers  are: 


Leased  tapes  will  be  stored  by  DCS 
Please  Pick  Up  Your  Owner  Tapes  in  110a  ERL 


FASTRAN 

SCATRE 

MAD 

F0RTRAN  IBM 

ALG0L 

IPL-V 

SNOBOL 

G^ 


Appendix  9*   $  Control  Card  Summary 

Those  which  are  underlined  below  pertain  to  the  execution  phase,  and 
must  appear,  if  used,  in  the  first  group  of  $  control  cards  in  the  job  deck. 

Compile  the  F0RTRAN  program  that  follows  with  FASTRAN  compiler. 
Assemble  the  SCATRE  program  that  follows. 
Compile  the  MAD  program  that  follows. 

Compile  the  FORTRAN  program  that  follows  with  IBM  FORTRAN  compiler. 
Compile  the  ALG0L  program  that  follows. 
Interpret  the  IPL-V  program  that  follows. 

Interpret  the  SN0B0L  program  that  follows  with  the  SN0B0L  list  processo 
Execute  the  instructions  compiled,  assembled,  or  read 
in  during  the  preprocessing  of  this  program.   (if  an 
error  occurs  during  the  preprocessing,  no  execution 
will  take  place). 

Defines  the  information  that  follows  this  card  to  be 
data.   This  must  always  precede  the  first  data  card. 
Dump  the  user's  programs  and  Erasable  in  case  of 
trouble  (other  than  input -output  trouble). 

Same  as  DUMP,  but  tape  library  routines  called  by  the  user 
are  dumped  as  well. 

Dump  all  of  core  in  case  of  trouble  (other  than  input- 
output  trouble ) . 

Give  dump  as  indicated  even  if  input -output  trouble. 
(Must  be  accompanied  by  DUMP,  FULL  DUMP  or  LIBDUMP). 
Print  the  object  program  that  results  from  the  current 
MAD,  FASTRAN  or  FORTRAN  translation. 

Punch,  in  column  binary  form,  the  object  program  generated 
by  the  current  $  MAD,  $  F0RTRAN,  $  SCATRE,  $  ALG0L,  OR  $  FASTRAN. 


DATA 
DUMP 
LIBDUMP 
FULL  DUMP 
1/0  DUMP 
PRINT  OBJECT 
PUNCH  OBJECT 
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BREAK(N) 
BINARY 
COPIES  (N) 
CLEANUP 

REMOVE  TAPES 
HALT 

SSUPAC 

STATMON 
SUBTRACE 


Marks  the  end  of  each  core-load  in  a  multiple -core  load  job. 

The  parameter  N  refers  to  a  logical  tape  unit. 

Indicates  that  all  cards  following  (up  until  a  $  DATA  card) 

are  column  binary. 

Causes  N  copies  of  the  output  following  to  be  printed  until 

either  another  $  C0PLES(n)  card  or  the  end  of  the  job  appears. 

Allows  the  user  to  regain  control  of  the  computer  for  a  short 

time  after  termination  via  SYSERR  or  by  operator  intervention, 

through  SYSCUP  subroutine. 

Causes  the  computer  to  halt  at  the  end  of  the  job  for  removal 

of  user's  reserved  tapes. 

Stop  the  computer  to  allow  the  operator  to  take  action 

indicated  on  comments  cards  ($  in  columns  1  and  2).   This 

is  effective  only  if  comments  have  preceded. 

Use  the  Statistical  Services  Unit  package  of  statistical 

programs. 

Use  the  Statistical  Monitor  package  of  statistical  programs. 

Causes  the  user's  program  to  be  linked  by  the  loader  in  a 

manner  to  permit  a  message  to  be  printed  out  at  every 

subroutine  call.   (Program  must  contain  a  CALL  0NTRAC  to 

turn  on,  and  can  contain  a  CALL  0FTRAC  to  turn  off. ) 
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All. 2  Alphabetic  List  of  Messages  Arising  from  Execution  Coordination 
Routines  (ECR),  Monitor  (MON),  and  Loader  (LDR) 


***  AC 


OF 


TR 


UF 

AT  LC  XXXXX 

A  Daily  Message 

****  ALL  INPUT  DATA  HAVE  BEEN  PROCESSED 

***  BAD  C/C  LIST 
AT  LC  XXXXX 

BINARY  INPUT  T0  TRANSLAT0R . J0B  DELETED. 

****  CARD  ESTIMATE  EXCEEDED 
AT  LC  XXXXX 

CHECKSUM 

CHECKSUM  DISCREPANCY 

$$  CARDS  N0T  IMMEDIATELY  AFTER  ID  CARD.   J0B  DELETED 

DP  ERROR  TR 
AT  LC  XXXXX 

ELAPSED  TIME  IN  HRS-MINS-SECS.  (HH  MM  SS.S) 

$  -  TOTAL  -  GOTIME  -  SYSTIM  -  LOADER  -  (Various  Translator  times) 

-  CARDS  PUNCHED  -  CARDS  INPUT  -  LINES  PRINTED 


ECR 

M0N 
ECR 

ECR 

M0N 

ECR 
LDR 
M0N 
M0N 

M0N 


TIME  REMAINING  FOR  THIS  PS  NO.  - 
AND  IT  EXPIRES 


CHARGEABLE 


CREDIT 


EXECUTION  TAPE  IS  EITHER  BAD  0R  THERE  IS  AN  ILLEGAL  BCD  CARD 

***  EXECUTION  TERMINATED  VIA  SYSERR 

FIRST  CARD  N0T  A  PR0GRAM  CARD 

***  HANGUP 

AT  LC  XXXXX 

****  HOLD  BUFFER  FULL 

ILLEGAL  BCD  CARD 

ILLEGAL  BINARY  TRANSITION  CARD 

ILLEGAL  DEFT  JOB  DELETED 

**  ILLEGAL  DISK  SPECIFICATION 

ILLEGAL  ENTRY  NAME  XXXXXX 

ILLEGAL  ID  CARD 


LDR 
ECR 
LDR 
ECR 

ECR 
LDR 
LDR 
M0N 
ECR 
LDR 
M0N 
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ILLEGAL  LOADING  ADDRESS  LDR 

****  ILLEGAL  LOW  CORE  FUNCTION  USED  ECR 
AT  LC  XXXXX 

ILLEGAL  NAME  JOB  DELETED.  M0N 

ILLEGAL  PERMISSION  CARD.   J0B  DELETED  M0N 

ILLEGAL  (PLACEMENT  0F )  $  C0NTR0L  CARD.   J0B  DELETED  M0N 

ILLEGAL  PS.  NO    J0B  DELETED  M0N 

****  ILLEGAL  UNIT  IN  I/O  CONTROL  ECR 
AT  LC  XXXXX 

ILLEGAL  USE  0F  FULL  C0RE  L0ADING  LDR 

IMPR0PERLY  PLACED  BCD  CARD.   J0B  DELETED  M0N 

INACTIVE  PS  NO.  M0N 

INC0RRECT  TAPE  N0.  0N  $  BINARY  0R  $  BREAK  M0N 

INVALID  STR-TTR  ECR 
AT  LC  XXXXX 

****  IRRECOVERABLE  DISK  ERROR  ECR 

J0B  DELETED.   DEPT  N0T  PUNCHED  LEFT -JUSTIFIED  IN  55-60  M0N 

J0B  N0.  XXXX  DELETED  M0N 

****  J0B  0VERTIME  ECR 
AT  LC  XXXXX 

J0B  TERMINATED  AND  RESTARTED  BY  0PERATOR  M0N 

J0B  TERMINATED  BY  0PERAT0R  M0N 

J0B  VI0LATES  CATEG0RY  C0NDITI0NS.  RESUBMIT  J0B  IN  PR0PER  CATEG0RY   M0N 

*****   LOGS.   CAN  BE  SAFELY  USED  IN  EXPANDING  PROG.   (OCTAL)  LDR 

***  LOOPING  OR  OVERTIME  ECR 
AT  LC  XXXXX 

***   LOW  CORE  SYSTEM  DESTROYED  ECR 

MAP  LDR 

MAP  (SPLIT  CORE  LOAD)  LDR 


*-*■* 


MQ 


OF 

UF 


TR 


ECR 


AT  LC  XXXXX 
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N0  C0PIES  PERMISSION  0R  EXCESSIVE  REQUEST 

N0  $  CONTROL  CARD.   J0B  DELETED 

N0  MAIN  PROGRAM 

N0  S-8  J0B  CARD.   J0B  DELETED 

OPERATOR  INTERVENTION  DURING  EXECUTION 

***  PAGE  ESTIMATE  EXCEEDED 
AT  LC  XXXXX 


PARTIALLY  L0ADED  REC0RD 
PR0GRAM  0N  TAPE  


ID  = 


(OCTAL) 


PR0GRAM  AND  ERAS.  0VERLAP  BY  XXXXX  L0CS.  (0CTAL) 

****  PROTECT  VIOLATION 
AT  LC  XXXXX 

RECORD  NOT  ON  TAPE 

SECTION  TERMINATED  BY  0PERAT0R 

SUBR0UTINE APPEARS  MORE  THAN  0NCE 

FIRST  0NE  L0ADED  WILL  BE  USED 

SUBR0UTLNE  NEEDED  TABLE  0VERLAPS  PRES.  TABLE 

SUBROUTINES  N0T  AVAILABLE  FR0M  THE  LIBRARY 

EXECUTION  WILL  PROCEED  F0R  15  SEC.  OR  UNTIL  A  MISSING  SUB.  IS 

CALLED 

SUMCHECK  DISCREPANCY 

THE  FIRST  CARD  NOT  READ  WAS 

BINARY  or  the  BCD  card  image  if  BCD 

XXX  ADDITIONAL  CARDS  WERE  N0T  READ 

TOTAL  TIME  .G.  REMAINING  PS  TIME. 

TOTAL  TIME  T00  SMALL,  JOB  TERMINATED 

2  MAIN  PROGRAMS 

UNABLE  TO  READ  PSINF0  FROM  DISK.  SENS1  =     SENS2  = 

UNSUCCESSFUL  ASSEMBLY 

****  WHAT  WERE  YOU  DOING 
AT  LC  XXXXX 

W0RD  C0UNT 

READING  TAPE  XX  IN  WR0NG  M0DE  AT  LC  XXXXX 


M0N 

mOn 

LDR 

mOn 

ECR 
ECR 

LDR 
LDR 
ECR 


ECR 
M0N 
LDR 

LDR 
LDR 

mOn 

M0N 

mOn 

M0N 
M0N 
LDR 

mOn 
mOn 

ECR 

LDR 
ECR 
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All. 3  Messages  Arising  from  the  Monitor 

No  S-8  CARD.   JOB  DELETED. 

The  S-8  (or  "separator")  card  is  placed  in  front  of  the  ID  card 
of  each  job  by  personnel  in  the  Routing  Office.   This  message 
can  occur: 

1)  In  the  case  of  a  machine  or  tape  error  on  the  1^01 
or  709^ •   Resubmit  the  job;  or, 

2)  In  allowing  PORTHOS  to  process  an  input  tape  generated 
by  a  1^01  program  other  than  CHAOS.   See  a  consultant. 

JOB  NO.  XXXX  DELETED.   ILLEGAL  ID  CARD. 
This  message  can  occur: 

1)  if  the  department  punched  on  the  ID  card  is  not  that 
which  appeared  on  the  Problem  Specification  form;  or 

2)  as  the  result  of  a  character  other  than  a  blank  in 
column  1,  off -punching  of  the  card  (caused  by  a 
keypunch  machine  or  the  reproducer),  or  tape  errors. 
Keypunch  another  ID  card  and  resubmit  the  job. 

ILLEGAL  PS  NO.   JOB  DELETED. 

This  message  occurs  when: 

1)  The  Problem  Specification  number  has  expired;  submit 

a  "Change  in  709^-  Problem  Specification"  form  requesting 
additional  months,  allowing  at  least  one  week  for 
processing  of  the  request; 

2)  The  user  had  made  a  keypunching  error  or  the  ID  card 
was  off -punched;  keypunch  another  ID  card  and  resubmit 
the  job;  or, 

3)  The  second  character  of  the  Problem  Specification  number 
should  be  an  "0"  (alphabetic)  for  October,  instead  of 

a  "0"  (zero). 
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JOB  DELETED.   DEPT  NOT  PUNCHED  LEFT -JUSTIFIED  IN  55-60 

The  user's  department,  as  it  appeared  on  the  Problem  Specification 
form,  must  be  punched  starting  in  column  55-   Keypunch  another 
ID  card  and  resubmit  the  job. 

JOB  VIOLATES  CATEGORY  CONDITIONS.   RESUBMIT  JOB  IN  PROPER  CATEGORY 
Self-explanatory.   The  user  should  refer  to  Appendix  3* 
of  this  manual  or  the  category  descriptions  posted  on 
the  ERL  hallway  near  the  Routing  Office. 

NO  $  CONTROL  CARD.   JOB  DELETED. 
Self-explanatory. 

ILLEGAL  (PLACEMENT  OF)  $  CONTROL  CARD.   JOB  DELETED. 
This  message  occurs  when: 

1)  A  non-existent  or  misspelled  control  function  appears 
on  a  $  control  card;  or, 

2)  The  arrangement  of  the  $  control  cards  in  the  job 
deck  is  incorrect  (see  Appendix  9- ) 

INCORRECT  TAPE  NO.  ON  $  BINARY  OR  $  BREAK 
This  message  occurs  when: 

1)  A  $  BREAK  card  contains  one  of  the  logical  tape 
numbers  1,  5>  6,  7 >    &>    or  N,  where  N  >  10;  or 

2)  A  $  BINARY  card  contains  one  of  the  logical  tape  numbers 
1,  5,  6,  8,  or  N,  where  N  >  10. 

NO  COPIES  PERMISSION  OR  EXCESSIVE  REQUEST. 

Self-explanatory.  No  more  than  63  copies  can  be  requested. 

BINARY  INPUT  TO  TRANSLATOR.   JOB  DELETED. 

This  message  occurs  when  a  binary  deck  is  preceded  by  one  of 
$SCATRE,  $  F0RTRAN,  $  ALGOL,  or  $  MAD.   Binary  input  to  SCATRE 
is  permitted  if  preceded  by  a  BINARY  pseudo-operation.   (See 
SCATRE  Manual ). 
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IMPROPERLY  PLACED  BCD  CARD.   JOB  DELETED. 

This  message  occurs  if,  after  the  END  card  (END  0F  PR0GRAM, 
FINIS)  of  a  symbolic  deck,  the  next  BCD  card  in  the  job  is  other 
than  a  $  Control  card. 

CHECK  SUM  DISCREPANCY 

This  message  occurs  if  the  check  sum  punched  on  a  binary  card 
encountered  on  the  input  tape  by  the  Monitor  does  not  agree 
with  the  sum  the  Monitor  finds  when  it  performs  the  check  sum 
on  the  card  before  copying  it  onto  the  execution  tape.   An 
octal  image  of  the  incorrect  card  is  printed  after  the  message. 
The  job  will  be  terminated  after  checking  all  binary  cards  and 
performing  all  translations  in  the  job,  but  before  execution. 
This  error  most  frequently  occurs  when  a  binary  deck  has  been 
reproduced  on  the  51^+  reproducer,  or  acquired  from  another 
installation  or  SHARE.   Regenerate  the  binary  deck  and  resubmit 
the  job. 

JOB  TERMINATED  AND  RESTARTED  BY  OPERATOR 

This  message  will  occur  at  the  top  of  the  printed  output  and 
appears  when  a  machine  error  during  the  job  has  occurred  and 
the  operation  restarts  the  job. 

SECTION  TERMINATED  BY  OPERATOR 

This  message  occurs  when  a  job  has  halted,  hung-up,  or  looped 
during  translation.   The  709^-  operator  has  set  keys  which  cause 
the  Monitor  to  attempt  to  locate  another  group  of  $  Control 
cards  in  the  job  so  that  subsequent  translations  can  be  performed. 
A  panel  sheet  will  be  returned  with  the  output.   Correct  the 
erroneous  translation  (or  see  a  consultant)  and  resubmit  the 
section  in  error. 
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JOB  TERMINATED  BY  OPERATOR 

This  message  occurs  when  a  job  has  halted,  hung-up,  or  looped 
repeatedly  in  translation,  or  halted,  hung-up,  or  looped  in 
execution,  and  the  709^  operator  has  set  keys  which  cause  the 
Monitor  to  get  the  next  job  on  the  input  tape.   A  panel  sheet 
will  be  returned  with  the  output.   Correct  the  error  (or  see  a 
consultant)  and  resubmit  the  job. 

THE  FIRST  CARD  NOT  READ  WAS 
(BCD  card  image) 

X  ADDITIONAL  CARDS  WERE  NOT  READ 
or 
THE  FIRST  CARD  NOT  READ  WAS  BINARY 

X  ADDITIONAL  CARDS  WERE  NOT  READ 
Self-explanatory. 

ELAPSED  TIME  IN  HRS-MINS-SECS,  (HH  MM  SS.S) 
$  X.  TOTAL   YY.Y  GOTINE   ZZ.Z  SYSTIM   WW. W  LOADER   W.V  (Various  Translator  times) 
AAA  CARDS  PUNCHED  BBB  CARDS  INPUT  CCC  LINES  PRINTED 
TIME  REMAINING  FOR  THIS  PS  NO.  -     CHARGEABLE     CREDIT  AND  IT  EXPIRES 
These  lines  appear  on  all  output.   The  left -most  value,  $  X.  TOTAL, 
is  the  approximate  cost  of  the  job  on  the  709^+  at  $100/hr. 
The  other  values  are  the  approximate  amounts  of  time,  in  minutes 
and  seconds,  spent  by  the  various  phases  of  the  job.   Included  in 
execution  time  are  Monitor,  Loader,  dump,  and  operator  times  when 
they  apply  to  the  job.   The  time  remaining  indicates  hourly  time 
and  calendar  time  left  for  the  Problem  Specification  No.   It 
should  be  used  as  an  indication  when  to  submit  a  Problem 
Specification  Change  form  if  more  hourly  or  calendar  time  is 
required. 
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ILLEGAL  PERMISSION  CARD.   JOB  DELETED. 

This  message  occurs  if  there  is  a  binary  card  image  or  an  improperly- 
punched  binary  permission  card  between  the  S-8  and  ID  cards. 

$$  CARDS  NOT  IMMEDIATELY  AFTER  ID  CARD.   JOB  DELETED. 
This  message  is  self-explanatory. 

TOTAL  TIME  TOO  SMALL.   JOB  DELETED. 

This  message  occurs  if  there  is  less  than  6  seconds  left  of  total 
time  after  translation  or  between  any  two  translations. 

ILLEGAL  DEFT  JOB  DELETED 

The  user  has  mispunched  the  Department  name  or  has  filled  in  the  wron£ 
Department  in  columns  55-^0. 

ILLEGAL  NAME.   JOB  DELETED. 

The  user  has  not  punched  his  name  (including  blanks)  in  the  ID  card 
as  it  appears  on  his  Problem  Specification  Form. 

INACTIVE  PS  NO. 

The  Problem  Specification  No.  punched  on  the  ID  card  has  expired  and 
has  not  been  renewed. 

TOTAL  TIME  .G.  REMAINING  PS  TIME. 

The  total  time  requested  on  the  ID  card  exceeds  the  amount  of 
hourly  time  left  for  this  Problem  Specification  No. 
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All. 4  Messages  Arising  from  the  Execution  Coordination  Routines 

****  ALL  INPUT  DATA  HAVE  BEEN  PROCESSED. 

This  message  appears  when  the  end-of-file  following  the  job  is  read 
and  the  user  has  not  provided  an  end-of-file  return  in  the  call  to 
SYSRIT  or  SYSLIT.   (See  Section  6.2.2.1.) 

****  CARD  ESTIMATE  EXCEEDED 
AT  LC  XXXXX 

****  PAGE  ESTIMATE  EXCEEDED 
AT  LC  XXXXX 

These  messages  are  self  explanatory.   Sixty  lines  is  considered  one  page, 

BAD  C/C  LIST 
AT  LC  XXXXX 

The  call  to  the  system  tape  handling  routine  SYSWUB,  SYSRUB,  SYSWUD, 

or  SYSRUD  contains  a  parameter  reference  to  location  XXXXX  which 

contains  either  the  illegal  tape  channel  command  IOCD,  or  an  illegal 

disk  command  has  been  given  at  LOC  XXXXX.   The  sum  of  the  effective 

address  of  the  command  at  loc  XXXXX  and  the  count  has  exceeded  77777 o* 

("Wrap  around"  the  end  of  memory).   The  channel  command  at  loc  XXXXX 

has  an  address  which  is  below  SYSORG  (lOOOOo  at  present).   This 

message  can  occur  if  the  number  of  channel  commands,  exclusive  of 

TCH  commands,  exceeds  30»   XXXXX  refers  to  the  location  at  which 

this  limit  has  been  exceeded. 

*****  ILLEGAL  UNIT  IN  I/O  CONTROL 
AT  LC  XXXXX 

An  illegal  logical  tape  unit  has  been  addressed  by  one  of  the  tape 

routines  called  from  location  XXXXX.   ("illegal"  here  is  used  in  the 

sense  of  a  non-existent  unit  or  a  protected  unit  such  as  the  input 

or  output  tapes.). 

****  READING  TAPE  CN  IN  WRONG  MODE. 
AT  LC  XXXXX 

This  message  appears  when  tape  unit  N  on  channel  C  has  been  read  a 

certain  number  of  times  in  the  mode  specified  by  the  call  from  location 
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XXXXX,  each  time  with  a  redundancy  error,  and  has  been  read  once  in 
the  opposite  mode  (binary  to  BCD  or  BCD  to  binary  change)  without  a 
redundancy  error. 

RECORD  NOT  ON  TAPE 

An  attempt  has  been  made  to  read  a  program  segment  via  SYSLSR,  whose 
logical  record  number  does  not  exist  or  is  out  of  sequence  on  the  tape  in 
question.   This  message  occurs  most  frequently  in  Ping  Pong  jobs. 


-x-*-* 


AC 


OF 

IUEJ 
AT  LC  XXXXX 


TR 


The  indicated  floating  point  range  error  has  occurred  at  location  XXXXX. 
See  Section  6.2.10.  for  further  information  on  the  system  floating  point 
trap  processor. 


**-*- 


MQ 


OF 
UF 
AT  LC  XXXXX 


TR 


The  indicated  floating  point  range  error  has  occurred  at  location  XXXXX. 
See  Section  6.2.10.  for  further  information  on  the  system  floatingpoint 
trap  processor. 

DP  ERROR  TR 
AT  LC  XXXXX 

At  location  XXXXX  an  attempt  has  been  made  to  execute  a  double  precision 

instruction  other  than  DST  which  has  an  ODD  address. 

****  WHAT  WERE  YOU  DOING 
AT  LC  XXXXX 

A  "core  constant"  (TSX  35I+l,1+o)  was  executed  at  location  XXXXX. 

***  LOW  CORE  SYSTEM  DESTROYED 

The  job  changed  some  cell  with  an  address  less  than  SYSORG  (SYSORG 
now  is  10000n)«   As  a  result,  the  checksum  of  the  input/output 
supervisor  was  found  to  be  incorrect  when  control  was  returned  to 
the  system  via  SYSTEM,  SYSERR,  SYSTXT  or  through  OPERATOR  INTERVENTION. 
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OPERATOR  INTERVENTION  DURING  EXECUTION. 

The  operator  terminated  the  job  manually. 

****  ILLEGAL  LOW  CORE  FUNCTION  USED 
AT  LC  XXXXX 

This  is  a  general  purpose  message  indicating  the  entrance  into  a  routine 

reserved  for  system  use.   In  general,  these  routines  include  those  which 

move  the  input  or  output  tape  other  than  for  reading  or  writing, 

respectively.   XXXXX  is  the  complement  of  IR^  at  the  time  the  routine 

was  entered.   This  message  will  also  occur  if  the  argument  for  SYSSTR, 

SYSFPT,  SYSTTR  is  below  lOOOOg.   This  message  will  occur  if  a  CALL 

SYSCUP  is  given  without  $  CLEAN  UP. 

EXECUTION  TERMINATED  VIA  SYSERR. 

This  message  occurs  as  a  result  of  transferring  to  SYSERR  or 
termination  of  job  by  operator. 

PROTECT  VIOLATION 
AT  LC  XXXXX 

The  user  has  either  used  an  illegal  instruction  to  refer  to  Low  Core 
or  has  used  an  instruction  that  violates  memory  protect. 

HOLD  BUFFER  FULL 

The  user's  program  has  overflowed  the  Low  Core  push-down  list. 
This  usually  occurs  if  trap  exits  are  being  used  for  purposes 
other  than  returns. 

JOB  OVERTIME 
AT  LC  XXXXX 

Time  for  the  job  has  been  exceeded.   This  time  is  the  smaller  time 

of  the  following  times:   l)  execution  time  given  on  ID  card; 

2)  the  time  set  up  by  the  Loader  at  the  beginning  of  execution; 

3)  the  time  set  by  the  Loader  if  subroutines  are  missing. 

INVALID  STR-TTR 
AT  LC  XXXXX 

An  STR  or  an  instruction  trapped  by  the  transfer  trap  mode  has  been 

executed  without  a  return  having  been  set. 
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LOOPING  OR  OVERTIME 
AT  LC  XXXXX 


Manual  intervention  by  the  operator  has  occurred  during  what  is 
assumed  to  be  a  loop* 

HANGUP 

AT  LC  XXXXX 

A  hangup  has  occurred  during  execution.   The  operator  has  set  a  key 

to  cause  an  exit  via  SYSERR. 

All.^-.l  Messages  Arising  From  The  Disk  Execution  Coordination  Routines 

ILLEGAL  DISK  l/O  CALL 

NO  RECORD  FOUND 

IRRECOVERABLE  DISK  ERROR 

An  unusual  end  signal  has  been  issued  10  times  on  a  disk  select, 
and  the  user  does  not  have  a  trouble  return  set.   No  other  messages 
can  apply. 

ILLEGAL  DISK  SPECIFICATION 

1.  A  parameter  is  illegal. 

2.  Permission  for  the  track  requested  does  not  appear  in  the  internal 
Problem  Specification  Information  table. 

WRITE  CHECK  FAILURE 

Occurs  only  during  a  write  and  write-check  operation. 

DISK  ERROR.   TRACK  XXXXX  MOD  X  OPN  X   CHK  X  SENSE  XXXXXXXXXXXX 

Indicates  that  an  unrecoverable  error  has  occurred  during  a  data 

transmission  operation.   The  characters  indicated  by  XXX... XXX 

will  be  octal  digits  which  identify  the  type  of  error,  the  type 

of  operation  being  performed,  and  the  area  of  the  disk  which 

was  being  used.   Any  appearance  of  this  message  should  be  brought 

to  the  immediate  attention  of  the  Consulting  Staff,  in  Room  111b  ERL. 
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Since  it  is  often  possible  to  gain  information  from  a  run 
before  a  subroutine  (in  this  case,  the  missing  one)  is 
called,  this  message  is  considered  to  be  non-fatal  and 
execution  continues  until  the  subroutine  is  called  or 
until  15  seconds  have  elapsed,  whichever  situation 
occurs  first.   In  any  case,  the  subroutine  ONTRAC-OFTRAC 
is  called  into  core  and  utilized,  requiring  additional 
core  storage  of  130o+^-N  where  N  is  equivalent  to  the 
number  of  subroutines  called  in  the  program. 

ILLEGAL  BCD  CARD 

The  Loader  is  ordinarily  only  concerned  with  binary 
card  images.   The  only  BCD  card  it  should  ever 
correctly  encounter  is  a  $  DATA  card  and  that  only  if 
a  $  BINARY  card  has  preceded  it.   If  any  other  BCD 
card  is  read  by  the  Loader,  it  prints  out  the  above 
message,  the  execution  switch  is  turned  off,  and  the 
binary  image  of  the  BCD  card  in  error  is  printed. 
This  error  usually  occurs  when  a  BCD  card  is 
accidentally  included  within  a  binary  deck. 

PROGRAM  AND  ERAS.  OVERLAP  BY  XXXXXX  LOCS. 

A  PROGRAM  and  ERASABLE  overlap  occurs  when  the  user's 
program  plus  the  library  programs  it  needs  form  too 
large  a  segment  to  fit  between  the  initial  address 
(lOOOO)o  and  the  lowest  address  of  the  reserved 
ERASABLE  or  COMMON.   Steps  to  take  to  eliminate  this 
problem  are : 

1.  Reduce  the  size  of  ERASABLE  or  COMMON; 

2.  Reduce  size  of  dimension  statements; 

3.  Reduce  size  of  PROGRAM  COMMON  if  it  is  used;  or 
h.      Use  Ping-Pong. 
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SUBROUTINE  XXXXXX  APPEARS  MORE  THAN  ONCE 
FIRST  ONE  LOADED  WILL  BE  USED 

Self-explanatory.   The  name  of  the  second  subroutine  does 
not  appear  on  the  MAP  even  though  this  subroutine  occupies 
space  in  core. 


2  MAIN  PROGRAMS 


WORD  COUNT 


This  is  a  fatal  error.  Control  is  returned  to  the  system. 

A  word  count  greater  than  (32o)  on  any  binary  card  will 
cause  this  message  to  appear  followed  by  the  binary  card 
image.   The  word  count  appears  in  the  decrement  of  the 
first  word  (exclusive  of  the  7_9  punches).   This  is  often 
caused  by  an  improperly  reproduced  binary  card.   Loading 
does  not  continue  but  scanning  for  errors  does. 


ILLEGAL  BINARY  TRANSITION  CARD 

A  binary  transition  card  has  been  incorrectly  placed 
before  the  beginning  of  a  core  load,  or  a  PING-PONG  Tape 
of  Tape  3  or  h   is  requested. 

EXECUTION  TAPE  IS  EITHER  BAD  OR  THERE  IS  AN  ILLEGAL  BCD  CARD. 

This  message  occurs  if  there  is  a  tape  redundancy  or  if  a 
BCD  card  image  is  read. 

ILLEGAL  ENTRY  NAME 

This  message  occurs  if  there  is  not  a  1   in  any  of  the 
first  three  bits  of  a  subroutine  name;  e.g.,  if  the  first 
character  is  a  number. 
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All. 10  Messages  Arising  from  the  I/O  with  Conversion  Subroutines  and  from 
Subroutines  Carrying  Out  FORTRAN  and  MAD  I/O  Statements 

All  the  error  conditions  announced  to  the  user  by  the  messages  listed 
in  this  section  are  "I/O  errors,"   For  a  definition  of  the  term  "i/O  error,"  a 
description  of  the  standard  I/O  error  procedure,  and  related  information,  see 
section  6, 3°  6 .3*  of  this  manual. 

Upon  detection  of  an  I/O  error,  the  appropriate  one  of  the  error 
messages  listed  below  is  printed  out,  followed  by  the  line 

1/0  R0UTINE  CALLED  FR0M  L0CATI0N  XXXXX 
where  XXXXX  is  the  location  of  the  TSX  YYYYYY,1+  by  which  I/O  subroutine  YYYYYY 
was  entered,   If  the  I/O  error  return  is  non-standard,  the  error  code  associated 
with  the  error  is  stored  in  the  address  field  of  a  location  specified  by  the  user. 
All  error  codes  listed  below  are  unsigned  decimal  integers. 

Messages  Associated  with  Format  and  Data  Errors 

The  entire  error  message  printed  out  consists  off 

(1)  one  of  the  error-identifying  messages  listed  below 

(2)  the  line 

****CURRENT  F0RMAT  W0RD  IS  $cccccc$  FROM  L0CA  XXXXX,  AND  ^pUT 
CARD  0R  LINE  IS ....... . 

(3)  the  input  record  being  converted  or  output  record  being  created  at  the  time 
the  error  was  detected.   The  first  127  columns  of  the  record  are  printed. 

The  error  conditions  to  which  the  following  messages  refer  are  described 
in  sections  6.^.6.^.k.    to  6,3.6.3.6.  of  this  manual.   The  error  messages  aref 

****F0RMAT  REQUIRES  M0RE  THAN  XXX  C0LUMNS 

[error  code  =  2  if  input,  =  102  if  output]] 
****BAD  F0RMAT 

[error  code  =  1  if  input,  =  101  if  output] 
****ILLEGAL  CHARACTER  IN  INPUT  REC0RD 

[error  code  =  3] 
****MJMBER  N0T  IN  MACHINE  RANGE 

[error  code  =  ^4-J  (cannot  occur  during  output) 
****NUMBER  EXCEEDS  SPECIFIED  FIELD  WIDTH.   NUMBER  IS ....... . 

[error  code  =  IO5J 
(The  number  that  was  to  be  output  is 
printed  on  the  next  line). 
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Other  Messages  Associated  with  Input  and  Output  with  Conversion 

****BINARY  CARD  IN  B.CD  DATA 

[error   code  =  7] 

The  next  card  image  on  the  system  input  tape  is  in  binary  mode,  hence 
cannot  be  converted  by  the  I/O  with  conversion  subroutine  that  has  been  called. 
This  error  may  occur  during  execution  of: 

(1)  .READ  or  .L00Kj 

(2)  the  FORTRAN  statements  READ,  READ  INPUT  TAPE  7;  or 

(3)  the  MAD  statements  READ  F0RMAT,  L00K  AT  FORMAT,  READ  BCD  TAPE  7, 
READ  DATA,  READ  AND  PRINT  DATA. 

****ILLEGAL  BCD  TAPE  NUMBER 
[error  code  =  6J 
This  message  is  printed  when  either  of  these  errors  has  occurred: 

(1)  a  logical  tape  number  not  the  number  of  the  system  input  tape  nor  of  a 
utility  tape  is  specified  by  a  FORTRAN  READ  INPUT  TAPE  statement,  a  MAD  READ 
BCD  TAPE  statement,  or  a  CALL  of  IOC  subroutine  .TAPRD. 

(2)  a  logical  tape  number  which  is  not  the  number  of  the  system  output  tape,  not 
the  number  of  a  utility  tape,  and  which  is  /5>  is  specified  by  a  FORTRAN 
WRITE  OUTPUT  TAPE  statement,  a  MAD  WRITE  BCD  TAPE  statement,  or  a  CALL  of  IOC 
subroutine  .TAPWR. 

(Reference  to  logical  tape  5  in  these  contexts  signifies  that  the  output 
records  are  to  be  written  as  card  images  on  the  system  output  tape). 

Messages  Associated  with  MAD  Simple  i/O  Statements 

For  a  discussion  of  MAD  simple  I/O  statements  and  error  occurring 
during  their  execution,  see  section  5-1  of  the  MAD  manual. 

****'READ  DATA'  SUBROUTINE  ERR0R  RETURN- - 

This  error  message  is  followed  by  one  of  the  messages: 
****0DD  $  C0UNT  IN  DATA  SET 

[error  code  -  12J 
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****BINARY  CARD  IN  DATA  SET 
[error  code  =  7] 

****'READ  DATA'  SUBROUTINE  ERR0R  RETURN--ERR0R  IN  THIS  CARD 

If  this  message  is  printed,  the  card  being  processed  when  the  error 

was  detected  is  printed  on  the  next  line.   One  of  the  messages  listed  below 

identifies  the  error.   The  error  code  for  all  these  errors  is  12. 

****DIMENSI0NING  0R  SUBSCRIPTING  ERR0R 

****ILLEGAL  CHARACTER  IN  COLUMN  NN,  c 

where  c  is  the  illegal  character 

****INVALID  M0DE  F0R  S0ME  NUMBER  0R  ILLEGAL  CHARACTER  IN  NUMBER 

****VWVW  IS  N0T  THE  NAME  0F  A  VARIABLE  IN  THE  CALLING  PROGRAM 

where  WWW  is  the  variable  name  in  the  last  input  field  processed 

****0VERFL0W,  S0ME  NUMBER  T00  LARGE  (0R  T00  SMALL). 

The  error  message  associated  with  the  PRINT  RESULTS  statement: 
****' PRINT  RESULTS*  SUBROUTINE  ERR0R  RETURN- -ILLEGALLY  F0RMED  l/0  LIST 

[error  code  =  13J 

A  variable  name  appearing  in  the  list  of  a  PRINT  RESULTS  statement 
does  not  appear  in  the  symbol  table  of  the  program  or  has  a  non-standard  mode. 

Messages  Associated  with  FORTRAN  and  MAD  Binary  Tape  Statements 

****BCD  CARD  IN  BINARY  DATA 
[error  code  =  57] 

A  FORTRAN  READ  TAPE  N  statement  or  a  MAD  READ  BINARY  TAPE  N  statement 
(N  =  logical  number  of  system  input  tape)  orders  input  of  a  binary  card  image 
from  the  system  input  tape,  but  the  next  image  on  the  tape  is  in  BCD  mode. 

****ILLEGAL  BINARY  TAPE  NUMBER 

[error  code  =  56] 

This  message  is  printed  when  either  of  the  following  errors  has 
occurred: 
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(1)  a  logical  tape  number  not  the  number  of  the  system  input  tape  nor  of  a 
utility  tape  is  specified  by  a  FORTRAN  READ  TAPE  statement  or  a  MAD  READ 
BINARY  TAPE  statement. 

(2)  a  logical  tape  number  which  is  not  the  number  of  the  system  output  tape  and 
not  the  number  of  a  utility  tape,  and  which  is  /  5>  is  specified  by  a 
FORTRAN  WRITE  TAPE  statement  or  a  MAD  WRITE  BINARY  statement.   (Reference  to 
logical  tape  5  in  these  statements  signifies  that  output  records  are  to  be 
written  as  binary  card  images  on  the  system  output  tape). 

****LIST  F0R  READING  BINARY  CARD  T00  L0NG 
[error  code  =  8] 

A  FORTRAN  READ  TAPE  N  statement  or  a  MAD  READ  BINARY  TAPE  N  statement 
(N  =  logical  number  of  system  input  tape)  cannot  read  more  than  27  words  from  a 
binary  card  image  on  the  system  input  tape. 

****LIST  F0R  PUNCHING  BINARY  CARD  T00  L0NG 

[error  code  =  108] 

A  FORTRAN  WRITE  TAPE  N  statement  or  a  MAD  WRITE  BINARY  TAPE  N  statement 
cannot  write  a  binary  card  image  containing  more  than  27  words  on  the  system 
output  tape.   (N  =  logical  number  of  system  output  tape,  or  N=5,  which  denotes 
punching  of  a  binary  card  image  on  the  system  output  tape  ) . 

****ILLEGAL  BLOCK  PARA.METER  IN  BINARY  TAPE  l/0  LIST 

[error  code  =  11J 

The  list  of  a  MAD  READ  BINARY  TAPE  statement  or  WRITE  BINARY  TAPE 

statement  contains  a  block  element  V(sn,  s_,  ....  s  )  ...V(r  ,  r_,  ....  r  ) 

v  1'   2        n        1   2        n' 

such  that  the  linear  subscript  corresponding  to  V(r  ,    r    ,    ...,    r  )  is  greater 
than  the  linear  subscript  corresponding  to  V( s  ,    s    ,    ...,    s  ). 

****BINARY  TAPE  l/0  LIST  T00  L0NG 

[error  code  =  9j 

The  list  of  a  MAD  READ  BINARY  TAPE  statement  or  WRITE  BINARY  TAPE 
statement  may  not  contain  more  than  29  elements.   (For  a  definition  of  "element", 

see  section  5-3  of  the  MAD  manual). 
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Messages  Associated  with  FORTRAN  and  MAD  Non-Data  Tape  Statements 

****BAD  TAPE  N0.,  N0N-DATA  TAPE  ROUTINE 
[error  code  =  10J 

A  logical  tape  number  not  the  number  of  a  utility  tape  is  specified  by 
one  of  the  FORTRAN  statements  BACKSPACE,  END  FILE,  REWIND,  or  one  of  the  MAD 
statements  BACKSPACE  FILE  0F  TAPE,  BACKSPACE  REC0RD  0F  TAPE,  END  0F  FILE  TAPE, 
REWIND  TAPE,  SKIP  FILE  0F  TAPE,  SKIP  REC0RD  0F  TAPE. 
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All. 11  Messages  Arising  from  the  Tape  Subroutine  Library 


Subroutine  Entry  Name 
DPFDV 

ELOG 

SIN, COS 

SQFT 

)ARDEC,  )ARDEI 

)AREAD 


A)PTRA 
DDP1 


DEX1,  DEX110,  DEX12,  DEXP 

DEXP(3 

D.RD,  D.WR,  D.WAC,  D.DLY,  D.RD1, 
D.WR1,  D.WAC1 


D.FMT 

DLN1,  DLN12,  DLN110,  DL06,  DL062,  DL06lO 


Message 

***DPFDV  ZERO  DENOMINATOR 

Example;   error  arises  in  A  =  B/C  for 

C  =  0 


***ELOG  ARC-  NEGATIVE  OR  ZERO 
Examples   error  arises  in  A 
for  B  <  0 


logeB 


SINCOS  ARG  TOO  LARGE 

Example:      error  arises    in  A  =   sin  B  or 
A   =   cos  B  , 

for  B  >  6.87   x  10        (approx) 

****NEGATIVE  SORT  ARG 

Example;   error  arises  in  A  =  Vb~  for 
B  <  0 

IN  ARRAY  DECLARATION  A  LOWER  BOUND  IS 

GREATER  THAN  AN  UPPER  BOUND 
IN  ARRAY  DECLARATION  MEMORY  OVERFLOWED 


INPUT  ERROR. 
INPUT  ERROR. 
INPUT  ERROR. 
INPUT  ERROR. 
INPUT  ERROR. 


TWO  PERIODS  IN  ALGOL  NUMBER. 
NO  DIGIT  FOLLOWING  BASE  10. 
EXPONENT  TOO  LARGE. 
NOT  AN  ALGOL  NUMBER. 
ILLEGAL  CHAR? 


CALL  OF  PROCEDURE,  MEMORY  OVERFLOWED. 

DUE  TO  AN  ERROR  CONDITION,  THE  FOLLOWING 

TRACK  MAY  BE  INCORRECT.   THE  SENSE 

WORD  IS . . ,  XXXXXX 
DUE  TO  AN  ERROR  CONDITION,  TRACK  NO.  XXXXXX 

IS  UNABLE  TO  BE  DUMPED.   THE  SENSE 

WORD  IS . . .  XXXXXXX 

DOUBLE  PRECISION  ARE  TOO  LARGE 

****DOUBLE  PRECISION  EXP( 3  BASE  IS  ZERO 

ILLEGAL  DISK  I/O  CALL 
NO  RECORD  FOUND 
WRITE  CHECK  FAILURE 

DISK  ERROR.   TRACK  XXXXX  MODX  OPNX  CHKX 
SENSE  XXXXXXXXXXXX 

ILLEGAL  DISK  FORMAT  SPECIFICATION 

DOUBLE  PRECISION  LN  ARG  NEGATIVE 
DOUBLE  FRECISION  LN  ARG  NOT  NORMAL  OR 
=  ZERO 


Date . 
Section; 

5/1/65 
All. 11 

Page: 
Change : 

Portho 

1 
1 
s  Manual 

DNV1 


DSIN1,  DC0S1,  DSIN,  DCOS 
DSQRT1,  DSQRT 

EXP 

EXP(l,  EXPl) 

EXP(2,  EXP2,  )AEXP1) 

EXP(3,  EXP3 


FPT1,  FPT1C 


GTLD1,  EXITAP,  EXTRD,  SPRDTP,  FRSTAD 


IELOG 

.SET,  .SAVE,  .RSTOR,  .SAVRN,  .RSTRN 

PLOT1,  PL0T2,  PLOT 3,  PLOTU,  OMIT,  FPLOT 
SETPLT 


DNV1,  SINGULAR  MATRIX 

DNV1  DETERM  OVERFLOW,  ATTEMPT  TO  COMPUTE 

INVERSE  CONTINUES 
DP  ADDRESS  ERROR 
AC  OVERFLOW,  DNV1  CANNOT  CONTINUE 

DSIN  ARG  EXPONENT  LARGER  THAN  2**^9 

DSGRT  ARG  NOT  NORMAL 
DSQRT  ARG  NEGATIVE 

***EXP  ARG  EXCEEDS  87 . 3 

****EXP(l  ANS  TOO  LARGE 

Example-   A  =  Bc  for  A  >  2^ 


****EXP(2  ANS  TOO  LARGE 

Example:   A  =  Bc  for  A  >  lO3^ 


approx. 


FLOATING    POINT    EXPONENTIATION  RESULTS    IN 

OVERFLOW  OR   UNDERFLOW 
EXP(3  ERROR    -   NEGATIVE  BASE,    NON-INTEGRAL 

EXPONENT 

Example,   A  =  B°  for  B  <  0  ar.d  C  not 
FF  integer 

SP  MQ  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
FDP  AC  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
SP  ACMQ  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
FDP  MQ.  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
SP  AC  OVERFLOW  TRAP,  AT  LOCATION  XXXXX 
FD?  MQ  OVERFLOW  TRAP,  AT  LOCATION  XXXXX 
DP  MQ  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
DP  ACMQ  UNDERFLOW  TRAP,  AT  LOCATION  XXXXX 
DP  ACMQ  OVERFLOW  TRAP,  AT  LOCATION  XXXXX 
BAD  FPT1  PARAMETER  (N)  AT  LOCATION  XXXXX 
BAD  FPT1C  PARAMETER  (K)  AT  LOCATION  XXXXX 
DP  ADDRESS  ERROR  AT  LOCATION  XXXXX 

**LOADER  CALLED  ON  BY  USER 
**LOADER  RETURNING  TO  USER 
ILLEGAL  TAFE  NUMBER  IN  XXXXXX 
SAVCOR  UNSUCCESSFUL 

****IELOG  ARG  IS  ZERO 

LIST   BELOW   10,000    (OCTAL) 
LIST  ABOVE  LIST    (O) 

PLOT   1 

j  PLOT  2  |  IMPROPER  ARGUMENT 

NO  PREVIOUS  FL0T2 

X 

GRAPH  SIZE  INDETERMINATE  IN  iY  ,  DIRECTION 


STRACE,  ONTRAC,  OFTRAC 


SUBROUTINE  $$$$$$  CALLED  FROM  00000 
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TDP1B  -  TDP1D 

(BST) 

.READ,  .LOOK,  (CSH),  (LCSH),  .RD.,  .RDR. 

.IOB,  .MBINC 

.IOH,  .BCDC,  IOHSIZ,  (FID),  (RTN),  . IOHRT 


NDTCU 
,PRSLT,  .PROCT,  .PRBCD 

,RBIN 


.RDATA,  .RDDTA 


DISK  NOT  AVAILABLE 

RECORD  TOO  LARGE  FOR  DISK  CYLINDER 

WILL  TRY  TAPE 
SAVCOR  ON  XXXXXX 
DISK  REDUNDANCY  WILL  TRY  TAPE 
CANNOT  WRITE  HOME  ADDRESS 
LOADING  BLOCK  TOO  LARGE 

***MORE  THAN  10  RECORDS  WITH  AN  IRRECOVER- 
ABLE REDUNDANCY  -  DUMP  TERMINATED*** 
***THE  MINIMUM  VALUE  OF  THE  PARAMETER 
'LENGTH'  IS  18  -  DUMP  TERMINATED*** 

****BAD  BINARY  BLOCK 

****BINARY  CARD  IN  BCD  DATA 

****ILLEGAL  BLOCK  PARAMETER  IN  BINARY 

TAPE  I/O  LIST 
****BINARY  TAPE  i/O  LIST  TOO  LONG 

****BAD  FORMAT 

****CURRENT  FORMAT  WORD  IS  $$,  FROM  LOCA 
AND  CARD  OR  LINE  IS 

****ILLEGAL  CHARACTER  IN  INPUT  RECORD 
****CURRENT  FORMAT  WORD  IS  $$,  FROM  LOCA 

AND  CARD  OR  LINE  IS 

****NUMBER  NOT  IN  MACHINE  RANGE 

****CURRENT  FORMAT  WORD  IS  $$,  FROM  LOCA 

AND  CARD  OR  LINE  IS 

****MJMBER  EXCEEDS  SPECIFIED  FIELD  WIDTH. 

NUMBER  IS 

****CURRENT  FORMAT  WORD  IS  $$,  FROM  LOCA 

AND  CARD  OR  LINE  IS 

****FORMAT  REQUIRES  OVER  XXX  COLUMNS 

****CURRENT  FORMAT  WORD  IS  $$,  FROM  LOCA 
AND  CARD  OR  LINE  IS 

****BAD  TAPE  NO.,  NON-DATA  TAPE  ROUTINE 

****• PRINT  RESULTS'  SUBROUTINE  ERROR 
RETURN- --ILLEGALLY  FORMED  i/O  LIST 

****BCD  CARD  IN  BINARY  DATA 
****ILLEGAL  BINARY  TAPE  NUMBER 
****LIST  FOR  READING  BINARY  CARD  TOO  LONG 
****ILLEGAL  BLOCK  PARAMETER  IN  BINARY 
TAPE  I/O  LIST 

****ILLEGAL  CHARACTER  IN  COLUMN  00, 
****ODD  $  COUNT  IN  DATA  SET 
****BINARY  CARD  IN  DATA  SET 
****OVERFLOW,  SOME  NUMBER  TOO  LARGE  (OR 
TOO  SMALL) 
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.ERR,  SETERR,  .ATLOC 
(STB),  (WLR) 

.TAPWR,  (STH) 
(TSB),  (RLR) 

.TAPRD,  (TSH) 
.WBIN 


****INVALID  MODE  FOR  SOME  NUMBER  OR  ILLEGAL 

CHARACTER  IN  NUMBER 
***000000  IS  NOT  A  VARIABLE  IN  THE  CALLING 

PROGRAM 
****DIMENSIONING  OR  SUBSCRIPTING  ERROR 
****<READ  DATA'  SUBROUTINE  ERROR  RETURN-- 

ERROR  IN  THIS  CARD 

I/O  ROUTINE  CALLED  FROM  LOCATION  OOOOO 

****ILLEGAL  BINARY  TAPE  NUMBER 

***LIST  FOR  PUNCHING  BINARY  CARD  TOO  LONG 

****ILLEGAL  BCD  TAPE  NUMBER 

****ILLEGAL  BINARY  TAPE  NUMBER 

****BCD  CARD  IN  BINARY  DATA 

****LIST  FOR  READING  BINARY  CARD  TOO  LONG 

****ILLEGAL  BCD  TAPE  NUMBER 

****ILLEGAL  BINARY  TAPE  NUMBER 
***LIST  FOR  PUNCHING  BINARY  CARD  TOO  LONG 
**** ILLEGAL  BLOCK  PARAMETER  IN  BINARY 
TAPE  I/O  LIST 
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A11.16  Messages  Arising  from  FASTRAN 

INVALID  STATEMENT  NUMBER 

COMPILER  EXPECTS  COMMA. 

COMPILER  EXPECTS  END  OF  STATEMENT 

COMPILER  EXPECTS  OCTAL  NUMBER 

IMPROPER  DIGIT 

STATEMENT  MAY  TRANSFER  TO  ITSELF 

INVALID  FORM  OF  STATEMENT 

INVALID  VARIABLE  NAME 

COMPILER  EXPECTS  PAREN 

SUBPROGRAM  MAY  NOT  CALL  ITSELF 

STATEMENT  STARTS  WITH  INVALID  CHARACTER 

COMPILER  EXPECTS  FIXED  POINT  VARIABLE 

MORE  THAN  FIVE  OCTAL  DIGITS 

VARIABLE  FORMAT  NAME  NOT  DECLARED  AS  ARRAY  OR  FORMAT  NUMBER  IS  MISSING 

SYMBOL  TOO  LONG 

ARITHMETIC  STATEMENT  FUNCTION  NAME  XXXXXX  APPEARS  WITHOUT  TERMINAL  F 

VARIABLE  SUBSCRIPT 

MORE  THAN  THREE  DIMENSIONS 

DIMENSION  DECLARATION  OF  THE  ARRAY  XXXXXX  MUST  PRECEDE  APPEARANCE  IN  EXECUTABLE 

STATEMENT 
ARRAY  ILLEGALLY  ENDS  IN  -F 

XXXXXX  APPEARS  MORE  THAN  ONCE  IN  DIMENSION  DECLARATIONS 
ARRAY  TOO  BIG 

THE  FUNCTION  NAME  XXXXXX  APPEARS  WITHOUT  AN  ARGUMENT 
FORMAT  STATEMENT  NUMBER  REFERS  TO  EXECUTABLE  STATEMENT 

THE  SUBPROGRAM  ARGUMENT  XXXXXX  APPEARS  IN  COMMON  OR  EQUIVALENCE  STATEMENT. 
INCONSISTENCY  IN  EQUIVALENCE  DECLARATIONS  INVOLVING  SYMBOL  XXXXXX 
XXXXXX  APPEARS  MORE  THAN  ONCE  IN  COMMON  DECLARATIONS 
THE  SYMBOL  XXXXXX  IN  ASSIGN  OR  ASSIGNED  GO  TO  STATEMENT  APPEARS  IN  DIMENSION 

STATEMENT 
STATEMENT  NUMBERS  BELOW  ARE  NEEDED  IN  ASSIGNED  GO  TO  LISTS  FOR  THE  VARIABLE  XXXXXX 
ASSIGN  VARIABLE  XXXXXX  NOT  IN  ASSIGNED  GO  TO  STATEMENT 
ASSIGNED  GO  TO  VARIABLE  XXXXXX  NOT  IN  ASSIGN  STATEMENT 
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PROGRAM  TOO  LONG 

MIXED  MODES 

FIXED  POINT  INTERNAL  OR  LIBRARY  FUNCTION  INVALID  IN  DP  OR  CA  STATEMENT 

WRONG  COLUMN  1  MODE  FOR  ARITHMETIC  STATEMENT  FUNCTION 

WRONG  NUMBER  OR  MODE  OF  ARGUMENTS  IN  ARITHMETIC  STATEMENT  FUNCTION 

MISSING  END  CARD 

NO  SYMBOL  TABLE  PUNCHED  --  POOL  OVERFLOW 

XXXXXX  HAS  AN  INVALID  EQUIV  MODE$ 

TERMINUS  OF  A  DO  WAS  NOT  ENCOUNTERED 

INVALID  FORM  OF  SUBSCRIPT  FOR  ARRAY  XXXXXX 

INVALID  COMPLEX  CONSTANT 

INVALID  EQUAL  SIGN 

INVALID  INDEXING  IN  10  LIST 

MISSING  PUNCTUATION  OR  INVALID  i/O  LIST  ITEM 

INVALID  PUNCTUATION  IN  10  LIST 

SINGLE  PRECISION  ARRAY  USED  IN  DP  OR  CA  STATEMENT 

COMPILER  EXPECTS  COMMA  OR  RIGHT  PAREN 

INVALID  FORTRAN  FUNCTION  NAME 

FUNCTION  OR  SUBROUTINE  STATEMENT  NOT  FIRST  STATEMENT  IN  THE  PROGRAM 

RETURN  STATEMENT  INVALID  IN  MAIN  PROGRAM 

INCONSISTENT  MODE  DESIGNATIONS  ON  RETURN  STATEMENTS 

RETURN  STATEMENT  MISSING 

FUNCTION  NAME  DOES  NOT  APPEAR  ON  LEFT  SIDE  OF  SUBSTITUTION  STATEMENT 

NO  PAREN  FOLLOWS  TERMINAL  -F  FUNCTION 

STATEMENT  NUMBER  APPEARS  ON  MORE  THAN  ONE  STATEMENT 

SUBPROGRAM  ARGUMENT  USED  AS  INDEX  OF  DO  LOOP 

COMPILER  EXPECTS  =  SIGN 

COMPILER  EXPECTS  STATEMENT  NUMBER 

TOO  MANY  NESTED  DOS.   SIMPLIFY  PROGRAM 

INVALID  USE  OF  FORMAT  NUMBER 

NON-EXECUTABLE  STATEMENT  MAY  NOT  BE  FIRST  STATEMENT  OF  A  DO  LOOP 

TERMINAL  STATEMENT  OF  A  DO  MAY  NOT  BE  NON-EXECUTABLE,  A  TRANSFER,  OR  ANOTHER  DO 

NO  PATH  OF  FLOW  TO  ABOVE  STATEMENT 

FORMAT  STATEMENT  HAS  NO  STATEMENT  NUMBER 
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XXXXXX  IS  USED  AS  BOTH  A  VARIABLE  AND  SUBPROGRAM  NAME 

STATEMENT  NUMBER  TOO  LARGE 

ILLEGAL  FORM  OF  FLOATING  POINT  CONSTANT 

NUMBER  EXCEEDS  CAPACITY  OF  COMPUTER 

TERMINUS  OF  THIS  DO  HAS  ALREADY  BEEN  ENCOUNTERED 

CONSECUTIVE  **  ILLEGAL 

SUBPROGRAM  NAME  IS  ARGUMENT  OF  LIBRARY  FUNCTION 

ILLEGAL  CHARACTER 

ARITHMETIC  STATEMENT  FUNCTION  DEFINED  MORE  THAN  ONCE 

MISPLACED  PERIOD 

INVALID  CHARACTER  IN  COLUMN  1 

INVALID  PLACEMENT  OF  PUNCTUATION,  OR  INCOMPLETE  STATEMENT 

0  IS  NOT  VALID  AS  STATEMENT  NUMBER  OR  SUBSCRIPT 

NO  STATEMENT  ASSOCIATED  WITH  ABOVE  LABEL 

LEFT  SIDE  OF  STATEMENT  INVALID 

FUNCTION  NAME  USED  AS  ARRAY  OR  SUBPROGRAM  NAME 

ABOVE  DO  NESTS  WITHIN  A  DO  HAVING  SAME  DO  INDEX 

DO  INDEX  APPEARS  WITHIN  THE  DO  ON  LEFT  OF  EQUAL  SIGN 

BUILT-IN  FUNCTION  APPEARS  ON  LEFT  OF  EQUAL  SIGN 

ARITHMETIC  STATEMENT  FUNCTIONS  MUST  PRECEDE  EXECUTABLE  STATEMENTS 

SUBSCRIPTS  ILLEGAL  IN  ARITHMETIC  STATEMENT  FUNCTIONS 

UNMATCHED  PAREN 

ABOVE  STATEMENT  IS  INVALID  IN  THIS  SYSTEM. 

SUBPROGRAM  RUNS  INTO  END.   'CALL  SYSTEM'  IS  GENERATED.* 

SUBROUTINE  NEVER  RETURNS  TO  CALLING  PROGRAM.   COMPILER  ASSUMES  THIS  INTENTIONAL.* 

MORE  THAN  9  CONTINUATION  CARDS  FOR  THIS  STATEMENT. 

NO  ARGUMENTS  FOR  THIS  FUNCTION,  OR  INVALID  PUNCTUATION 

SUBPROGRAM  ARGUMENT  APPEARS  MORE  THAN  ONCE 

THIS  STATEMENT  MUST  APPEAR  BEFORE  ANY  USE  OF  THE  NAME  XXXXXX 

COMPILER  CAPACITY  EXCEEDED.   SIMPLIFY  PROGRAM. 

POSSIBLE  MACHINE  ERROR.   SEE  A  CONSULTANT. 

THIS  STATEMENT  IS  TOO  COMPLICATED.  .  .SIMPLI FY 

PROGRAM  GENERATES  TOO  MAM  CONSTANTS 

PROLOGUE  TABLE  EXCEEDED.   REDUCE  NUMBER  OF  REFERENCES  TO  THIS  SUBPROGRAM'S  FORMAL 

ARGUMENTS. 
IBM'S  'FIXF'  GENERATES  NONSENSE  CODE 

*  These  messages  are  NON-FATAL.   Execution  will  continue 
if  no  other  errors  occur. 
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Alio  17  Messages  Arising  from  LPG1 

VECTOR  SET  ASIDE  ,  ITERATION  

Pivot  too  small  in  CYC1. 

IMPROPER  OR  DELETED  CONTROL  VARIABLE 

Number  on  control  card  is  illegal. 

ITER. __.  SET  Z(k)   =  0. 

No  feasible  solution  at  this  point.   Z(^-),  the  mixing  parameter  for 
Phase  I  and  Phase  II  objective  functions,  has  been  set  to  zero  in  an 
attempt  to  find  a  feasible  solution. t 

MAX  ERROR  ON  (ROW,  COL)  ______  .   SUM,  _____ 

Routine  message  from  subroutine  ERR  giving  maximum  absolute  row  or 
column  error  as  well  as  sum  of  absolute  row  or  column  errors. 

CLEARED 

First  message  in  output;  tells  that  data  region  has  been  cleared  for 
new  problem. 

NEGATIVE  R.H.S.  FROM  INVERTING. 


M  =       ,  N  =       .   MATRIX  ENTRIES 

Number  of  rows,  columns,  and  matrix  elements. 

INVERSION  TROUBLE.   IR  =       ,  COL  =  _______    FEV  = 

Trouble  check.   Pivot  too  small  in  inversion  routine.   Gives  row  and 
column  of  trouble  and  value  of  pivot. 

INVERTING  AFTER.       TH  ITERATION.   _____  TRANSFORMATIONS  WITH        ENTRIES 
Routine  message  from  inversion  routine. 

TOO  MANY  (ROWS,  VECTORS,  ELEMENTS)  IN  MATRIX 

TOO  MANY  ENTRIES  IN  INVERSE,        IN        TRANS  FORMAT  IONS 
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Notes: 

(1)  The  Save  Core  tape  is  used  by  the  Monitor  between  translations  to 
save  itself  and  previously  read  information  such  as  the  Problem  Run  card. 

(2)  The  Execution  Tape  is  used  by  the  Monitor  and  all  translators  to 
build  a  tape  containing  binary  card  images  of  the  object  program  to  be 
loaded  by  the  Loader. 

(3)  Tape  5  is  not  available  to  a  user  as  a  utility  tape.  Although 
the  logical  tape  number  5  in  FORTRAN  and  MAD  programs  is  used  to  indicate 
punch  output,  this  output  is  actually  put  on  tape  6  with  an  indication  to 
CHAOS,  the  1^01  program,  that  this  output  is  to  be  punched. 

(k)     SCATRE  rewinds  tape  k   and  uses  tape  9  as  its  intermediate  tape 
when  it  encounters  the  MIDDLE  pseudo-op. 

(5)  Although  a  reserve  output  tape  is  normally  mounted  on  this  unit, 
a  user  may  use  tape  10  as  a  utility  tape.  Since  this  tape  may  be  unready, 
causing  a  slight  delay  while  the  operator  readies  it,  the  user  should  put 
in  $$  comments  cards  saying  that  he  is  using  tape  10. 

A-13.2  Tape  Units  Available  to  the  User  for  Savemounts 

The  following  units  may  be  used  as  a  savemount  with  a  translation, 
where  a  $  HALT  is  the  only  savemount  halt  appearing  in  the  program: 

Unit  10,  any  time  (see  note  5) 

Unit  9,  if  only  SCATRE  programs  (without  a  MIDDLE 
pseudo-op.)  or  FASTRAN  programs  are  used. 
The  following  units  may  be  used  as  savemount  tapes  if  no  translation 
occurs  and  the  only  savemount  halt  is  the  $  HALT  card. 
Units  10,  9,   k*,   2 
The  only  remaining  utility  tape,  logical  number  3>  can  be  safely 
used  as  a  savemount  only  if  a  halt  in  execution  preceded  by  an  appropriate 
comment  to  the  operator  is  provided. 


*Logical  unit  k   should  not  be  used  if  split-core  loading  is 
necessary  (Section  3»2.^.11.) 
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Appendix  Ik. 

Directory  of  the  709^-1^-01  System  in  the  Engineering  Research  Laboratory 


SEE  or  CALL 

FOR 

Secretaries 

Room     168 
Telephone   3-O969 
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The  following  five  pages  are  instructions  for  inserting  the  5/1/65 
revisions  in  the  PORTHOS  User's  Manual.   Those  pages  listed  for  replacement 
and/or  deletion  contain  a  page  number  for  the  front  side  of  the  page  only. 
Thus,  to  replace  pages  1-5  will  automatically  cause  page  6  (the  reverse  side 
of  page  5  if  one  exists)  to  become  an  integral  part  of  PORTHOS. 

Attached  with  these  instructions  are  Appendices  k   and  5  which  are  to 
replace  the  ones  erroneously  included  in  the  packet  of  revisions. 


INSTRUCTIONS  FOR  ADDING  NEW  MATERIAL 
TO  YOUR  PORTHOS  MANUAL 


TABLE  OF  CONTENTS  CHANGES 

Section  Contents  Pages  1-7 

Section  Contents  Page  9 

Section  Contents  Page  11 

Section  Contents  Pages  13-15 


Dated  5/1/65 
Dated  5/1/65 
Dated  5/1/65 
Dated  5/1/65 


Replaces  12/15/64 
version 

Replaces  12/15/6*+ 
version 

Replaces  12/15/6*+ 
version 

Replaces  12/15/6*+ 
version 


SECTION  I  CHANGES 

Section  1.1.1.  Page  1 

Section  1.1.2.  Page  1 

Section  1.2.1.  Page  1 

Section  1.2.2.  Page  1 

Section  1.2.3*  Page  1 

Section  1.3* 1-  Page  1 

Section  1.3-4.  Page  1 

Section  1.3* 5*  Page  1 


Dated  5/I/65 
Dated  5/1/65 
Dated  5/I/65 
Dated  5/1/65 
Dated  5/1/65 
Dated  5/1/65 
Dated  5/I/65 
Dated  5/1/65 


Replaces  12/15/64 
version 

Replaces  12/15/6*+ 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces   4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 


SECTION  II  CHANGES 

Section  2.1.2.  Pages  1-3 

Section  2.2. 3 •  Pages  1-3 

Section  2.2.4.  Page  1 

Section  2.2.5-  Page  1 

Section  2.2.6.  Page  1 

Section  2.3-2.  Page  1 

Section  2. 3- 3-  Page  1 

Section  2.4.1.  Page  1 


Dated  5/1/65 
Dated  5/1/65 

Dated  5/I/65 

Dated  5/l/65 

Dated  12/15/64 
Dated  5/1/65 

Dated  5/l/65 

Dated  5/1/65 


New  Material 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

Delete 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 


SECTION  III  CHANGES 

Section  3.1.  Pages  1-3 

Section  3*2.1.  Pages  1-3 

Section  3*2. 3*  Page  1 

Section  3.2.4.  Page  1 

Section  3-2.4.  Pages  3-11 

Section  3.2.4.  Pages  17-21 

Section  3-2.5.  Pages  5-17 

Section  3.2.5.  Pages  19-21 
Section  3.3«1.  Page  3 

Section  3* 3 • 3«  Pages  1-5 

Section  3«3«3'  Pages  7-H 

Section  3-3.3-  Pages  13-19 
Section  3- 3' 4.  Page  1 

Section  3-3«4.  Page  3 

Section  3-3.4.4.1.  Page  1 

Section  3.3.4.4,2.  Page  2 

Section  3.3.4.4.8.  Page  1 

Section  3.3.4.4.9.  Page  2 

Section  3-3.4.4.10.  Page  2 

Section  3« 3.4.4.12.  Page  1 

Section  3«3-4.5.  8  sheets 
Section  3-4.  Page  1 


Dated  S/l/65 

Dated  5/1/65 

Dated  5/1/65 

Dated  5/1/65 

Dated  5/1/65 

Dated  5/1/65 

Dated  5/1/65 

Dated   5/1/65 
Dated   5/1/65 

Dated  5/1/65 

Dated   5/1/65 

Dated   5/1/65 
Dated   5/1/65 

Dated  5/1/65 

Dated  5/1/65 

Dated   5/1/65 

Dated   5/1/65 

Dated  5/1/65 

Dated   5/1/65 

Dated  5/1/65 

Dated  5/1/65 
Dated  5/1/65 


Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 

Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

New  Material 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

New  Material 

Replaces  4/15/64 
version 
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SECTION  IV  CHANGES 

Section  4.2 . 2.  Page  1 

Section  4.2.2.  Pages  2-A- -27 

Section  4.2.2,  Pages  29-31 

Section  4.2-3°  Page  1 

Section  4.2, 3°  Pages  3-5 

Section  4.2.4.  Page  1 

Section  4.2.4c  Page  3 

Section  4.2o6<,  Page  1-3 

Section  4.2.6.  Page  7 

Section  4.3.2.  Page  1 

Section  4.3,2,  Page  3 

Section  4.3=3=  Page  1 


Dated  5/1/65 

Dated  5/l/65 

Dated  5/I/65 
Dated  5/1/65 

Dated  5/I/65 

Dated  5/I/65 

Dated  5/1/65 

Dated   5/1/ 65 

Dated  5/1/65 

Dated   5/1/65 

Dated  5/1/65 
Dated  5/1/65 


Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

New  Material 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/ 64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 

Replaces  4/15/64 
version 


SECTION  V  CHANGES 

Section  5-1°  Page  1 

Section  5*3»1»  Page  1 

Figure  5.1.  (l  sheet) 

Section  5° 3*2.  Page  1 

Section  5- 3-2.  Page  7-9 

Section  5=3«2.  Pages  13-21 

Section  5«3-2.  Pages  23-27 
Section  5*3= 3*  Page  1 
Section  5.4,1.  Page  1 


Dated  5/1/65 
Dated  5/I/65 

Dated  5/1/65 
Dated  5/1/65 
Dated  5/1/65 

Dated  5/1/65 

Dated  5/.l/65 
Dated  5/1/65 


Replaces  4/15/64 
version 

Replaces  4/15/64 
versior- 
Replaces  old  Figure 
5»lo  (4  sheets) 

Replaces  4/.15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

New  Material 

New  Material 

Replaces  4/15/64 
version 


Section  5.4.2.  Page  1 

Section  5-4.2.  Pages  3-7 

Section  5«4.3«  Page  1 

Section  5»5«1«  Page  1 

Section  5»5»2.  Page  1 

Section  5-5»3«  Page  1 


Dated  5/1/65 

Dated  12/15/64 
Dated  5/1/65 
Dated  4/15/64 
Dated  4/15/64 
Dated  4/15/64 


Replaces  12/15/64 
version 

Delete 

New  Material 

Delete 

Delete 

Delete 


SECTION  VI   CHANGES 

Section  6*2.1.  Page   1 

Section  6-2.2.  Pages   3-5 

Section  6.2.4.  Pages   1-3 

Section  6.2.4.  Page   5 

Section  6.2,6.  Page   1 

Section  6. 2,8.  Pages   1-3 

Section  6.2.9.  Page   1 

Section  6.2.9.  Page    5 

Section  6.2.10=    Page  1 

Section  6.3,2.  Page   19 

Section  6.3.2.  Pages  21-23 

Section  6.3.2.  Page   25 

Section  6.3. 5*  Page   1 

Section  6.3»5«  Page  7 

Section  6.3«5«  Pages   11-13 

Section  6.3.5*  Pages   15-21 

Section  6.3.6.  Pages   1-3 


Dated  5/l/65 

Dated  5/1/65 

Dated  5/I/65 

Dated  5/I/65 

Dated  5/1/65 

Dated   5/1/65 

Dated   5/1/65 

Dated   5/l/65 

Dated   5/1/65 

Dated   5/1/65 

Dated   5/1/65 

Dated  5/1/65 
Dated  5/I/65 

Dated  5/1/65 

Dated   5/1/65 

Dated   5/I/65 
Dated  5/1/65 


Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

New  Material 

Replaces  12/15/64 
version 


Section  6.3.6.  Pages  5-7 


Section  6.3.6.  Pages  9-H 


Dated  5/1/65 
Dated   5/1/65 


Replaces  4/15/64 
version 

Replaces  12/15/64 
version 


APPENDICES  CHANGES 

Section  A-l.  Page  1 

Section  A-l.  Page  3 
Section  A-3-  Page  1 

Appendix  4 
Appendix  5 
Appendix  6 
Appendix  7 
Section  A-9  Page  1 

Section  A-11.2.   Page  1 

Section  A-11.2.  Page  3 
Section  A-ll.3.  Pages  1-5 

Section  A-ll.U.  Pages  1-3 

Section  A-ll.5.  Page  3 

Section  A-11.10.  Pages  1-3 

Section  A-11.10.  Page  5 
Section  A-ll.ll.  Page  1 

Section  A-ll.ll.  Page  3 
Section  A-ll.16.  Pages  1-3 
Section  A-ll.17.  Page  1 
Section  A-13.  Page  1 

Section  A-l4.  Page  1 

Section  A-l8.  Pages  1-19 

Section  A-l8.  Page  21 


Dated  5/1/65 

Dated  4/15/64 
Dated  5/1/65 


Replaces  12/15/64 


version 


Dated  5/l/65 

Dated  5/1/65 

Dated  5/1/65 
Dated  5/1/65 

Dated  5/I/65 

Dated  5/1/65 

Dated  5/1/65 

Dated  5/1/65 
Dated  5/I/65 

Dated  5/I/65 
Dated  5/1/65 
Dated  5/1/65 
Dated  5/1/65 

Dated  5/1/65 

Dated  5/I/65 

Dated  5/1/65 


Delete 

Replaces  4/15/64 


version 


Replace  old  Appendix  4 

Replace  old  Appendix  5 

Replace  old  Appendix  6 

Replace  old  Appendix  7 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 

Replaces  4/15/64 
version 

Replaces  12/15/64 
version 

Replaces  12/15/64 
version 

Replaces  4/15/64 
version 

New  Material 

Replaces  4/15/64 
version 

New  Material 

New  Material 

New  Material 
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UNIVERSITY  OF  ILLINOIS 

GRADUATE  COLLEGE 

DEPARTMENT  OF  COMPUTER  SCIENCE 

PROBLEM  SPECIFICATION  FORM  (9) 


DO  NOT  WRITE  IN  THIS  SPACE 


Sequence  No._ 
Project  Type_ 


Ii5_ 


(See  problem  specification  instructions  for  clarification) 
(Return  to  Consultant  in  Room  111b,  ERL) 


Check  one:   LLLIAC  II 

Title  of  problem  

(a)  Prime  User 


IBM  709U 


Either 


Application  date 


Office  Address 


(b)  Department 
Phone 


Other  names  associated  with  running  of  this  problem: 


(a) 


•<3 

Check  ONE 
it, 


7 


HI 


Thesis  Research         Undergraduate  Research 
Faculty  Research  _      Education/Training 

(c)  If  Education/Training,  Course  No.  t 

(d)  Programming  systems  to  be  used 

(e)  Total  time  of  problem 


Sec. 
-vn 


Graduate  Research 
Other  (Explain) 

Prob.  No.    No.  of  students 
'«//      -u — ' — 'ti 


No.. 


hrs. 


-*% 


min.  ov- r  a  period  of 


months 


(f )  Billing  information  and  departmental  approval  (do  not  fill  in  for  Education,  Training) 

Source  of  funds  (i.e.,  contract  name  and  number)  

University  accounting  number  

Billing  address  

This  certifies  that  funds  have  been  allocated  to 

support  the  above  amount  of  computation  time. 


( g)  Approval  for  Education/Training  only 


(Authorized  Departmental  Signature) 

(Authorized  Departmental  Signature) 


(h)  SPECIAL  PROBLEM  REQUIREMENTS 

Fill  out  as  necessary.   If  filled  out,  explain  circumstances  fully  on  reverse. 

ORIGIN  OF  TAPES: 
(i)   No.  of  long  reserved  tapes  (not  scratch)  ,        DCS LEASE  _    BUY 

No.  of  short  reserved  tapes  (not  scratch)  '  '  '*        DCS LEASE  _    BUY 

Date  of  first  use  of  tapes  

(j)  „, ,  Low  density  permission 


Up  to 


51  «- 


-Vl. 


copies  of  printed  output 


(n)57 
(p) 


Full  dump 
On-line  reader 
On-line  punch 
Direct  data  connection 

, ,  Special  cards  in  1^02  punch 

Special  forms  on  IU03  printer 


,  Own  input-output  programming 

( :)_, ,  Relinquishment  of  entire  machine  by  system 

(r)      CRT:  total  frames  for  problem, 

ii — — — ' — ' — 'n 
(SEE  REVERSE  FOR  DESCRIPTION) 


DO  NOT  WRITE  IN  THIS  SPACE 
Problem  No.   ,  

Approved  by 


PLEASE  FILL  OUT  (Do  not  tear  off) 

N  ame Dat  e 

Office  Address  

(if  possible) 


DO  NOT  WRITE  IN  THIS  SPACE 
Problem  No.  

Approved  by  


Rione 


Problem  Title 


(The  Problem  Title  should  be  unique  for  each  Problem  Specification  handed  in  by 
a  given  user  so  that  the  user  can  identify  to  which  problem  this  returned 
portion  of  the  form  pertains. ) 


Briefly  describe  the  nature  of  your  research  problem  and  the  way  in  which  the 
computer  may  be  used  in  its  solution.   Include  some  description  of  the  mathematical 
method  if  other  than  standard  library  routines  are  involved.   Use  additional  sheets 
if  necessary.   Please  phrase  the  description  according  to  the  same  standards  used  in 
scholarly  publication  since  these  abstracts  will  be  published.   Please  use  no 
references,  diagrams,  abbreviations,  undefined  symbols  or  first  person  constructions. 


EXPLANATION  OF  SPECIAL  REQUIREMENTS 
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°L 
SP 
CH 

tccv 

ACTGOV 

ACCREC 
ACMREC 

acv 

AAE 

AGEC 

AGEC 

AGE 

£GREXT 

4GR 

AGRCN 

AFS 

ALUMNI 

ANS 

ANTH 

ARCh 

<RT 

*STR 

AUDIT 

AVI 

EANC 

EICPH 

ect 

ECPL 

8ECBSR 

6EC<ES 

eiNRES 

BURSAR 

csea 

EED 

El  Aw 

CZR 

CERE 

CHE 

CP 

CE 

CRC 

CLASS 

COMM 

CMPTCL 

CSL 

CHIA 

CS 

CT 

CANCE 

CNSTUO 

CCS 

CGS 

CUE 

ECCN 

ED 

EOPSY 

EDTEST 

EE 

ENGLSH 

ENTOM 

EOC 

FIN 

FT 

FOR 

FR 

CENE 

GEOG 

GEOL 

GER 

GRDCCL 

GRK 

FED 

FLTHSV 

FIST 

FEC 

trot 


IF  YCLR  CE 
EASE  WRITE  IT 
ECIFICATICN  F 
ARACTERS. 

ACCOUNT 

ACCOUNT 

ACCOUNT 

ACMSSI 

ACVERTI 

AERCNAl 

AGRICUL 

AGRICUL 

AGRICUL 

AGRICUL 

AGRICUL 

AGRCNCM 

AIR  FOR 

ALUMNI 

ANIMAL 

ANThRCP 

ARCHlTE 

ART 

ASTRCNC 

AUCITIN 

AVIATIC 

BANDS 

eicPFYS 

BOTANY 

BUREAU 

BUREAU 

BUREAU 

BUREAU 

BURSAR' 

BUS  IKES 

8US5NES 

BUS  IKES 

CENTER 

CERAMIC 

CHEMIST 

CITY  PL 

CIVIl  E 

CHILCRE 

CLASSIC 

COMMUNI 

COMPTRC 

CCCRCIN 

CAIRY  K 

DAIRY  S 

DAIRY  T 

DANCE 

CEAN  OF 

DEPART* 

OIVISIC 

OIVISIC 

ECCNCMI 

EDLCATI 

EDUCATI 

EDUCAT! 

ELECTRI 

ENGLISH 

ENTOMOL 

EXTENSI 

FINANCE 

FOCD  SC 

FORESTR 

FRENCH 

GENERAL 

GECGRAP 

GECLCGY 

GERMAN 

CRADUAT 

GREEK 

HEALTH 

HEALTH 

HISTCRY 

HOME  EC 

lpq t  f r |  ] 


LIST  OF  DEPARTMENT  CODES 
PARTMENT  OR  OFFICE  DOES  NOT  APPEAR  ON  THIS  LIST, 
S  FULL  NAME  IN  THE  DEPARTMENT  FIELD  IB)  ON  THE  PROBLEM 
ORM  EVEN  THOUGH  IT  WILL  REQUIRE  MORE  THAN  6 

ANCv 

ING  DIVISION 

S  RECEIVABLE 

ONS  AND  RECORDS 

SING 

TICAl  AND  ASTRONAUTICAL  ENGINEERING 

TURAL  ECONOMICS 

TURAL  EDUCATION 

TURAL  ENGINEERING 

TURAL  EXTENSION 

TURE 

Y 

CE  SCIENCE 

ASSOCIATION 

SCIENCE 

OLCGY 

CTURE 

MY 

G  DIVISION 

N 


ICS 

CF 
OF 
OF 
OF 

s  c 

S  A 
S  E 
S  L 
FOR 
EN 
RY 
ANN 
mGI 
N"S 
S 

CAT 
LLE 
ATE 
ERD 
CIE 
ECH 


CCMM 
ECCN 
FDUC 
INST 
FFIC 
DMIN 
9UCA 
AW 

ZOO 
GINE 
AND 
ING 
NEFR 

RES 


UNITY  PLANNING 

CMIC  AND  BUSINESS  RESEARCH 

ATIONAL  RESEARCH 

ITUTICNAL  RESEARCH 

E 

ISTRATION,  GRADUATE  SCHOOL 

TION 

NOSES  RESEARCH 

ERING 

ChEMICAL  ENGINEERING 

ING 

EARCH  CENTER 


IONS 

R'S  CFFICE 

D  SCIENCE  LABORATORY 

IMPROVEMENT  ASSOCIATION 
NCE 
NCLOCY 


STUDENTS 
ENT  OF  COMPUTER  SCIENCE 
N  OF  GENERAL  STUDIES  LAS 
N  OF  UNIVERSITY  EXTENSION 
CS 
ON 

ON  PSYCHOLOGY 
ONAL  TESTING 
CAL  ENGINEERING 

OGY 

ON  DIVISION,  COUNSELING 

IENCE 
Y 

ENGINEERING 

HY 


E  COLLEGE 

EDUCATION 
SERVICE 

ONOMICS 

t  thwp 


I-VG  HYGIENE 

INADM  INCUSTRIAL  ADMINISTRATION 

IEO  INCUSTRIAL  EOUCATION 

IE  INCUSTRIAL  ENGINEERING 

IREC  INSTITUTE  FOR  RESEARCH  ON  EXCEPTIONAL  CHILDREN 

ICR  INSTITUTE  OF  CCMMUNICATI ONS  RESEARCH 

IGPA  INSTITUTE  OF  GOVERNMENT  AND  PUBLIC  AFFAIRS 

ILR  INSTITUTE  OF  LABOR  AND  INDUSTRIAL  RELATIONS 

INSURE  INSURANCE  OFFICE 

ITAL  ITALIAN' 

JOURN  JOURNALISM 

LIR  LAeOR  AND  INDUSTRIAL  RELATIONS 

LA  LANDSCAPE  ARCHITECTURE 

LAT  LATIN 

LAW  LAW 

LAS  LieERAL  ARTS  AND  SCIENCES 

LIBS  LIBRARY  SCIENCE 

LING  LINGUISTICS 

MKTG  MARKETING 

MATH  MATHr-MaricS 

MKNLY  MC  KINLEV  HQSPITAL 

MRL  *ECSC6L  RESEARCH  LAB 

ME  MECHANICAL  ENGINEERING 

MEOIC  MEDICINE 

M°H,A  MEN'S  RESIDENCE  HALL  ASSOCIATION 

MRHARC  KEN'S  RESIDENCE  HALL  ASSOCIATION  ROCKE   CLUB 

MCBIG  MICROBIOLOGY 

MLS  MILITARY  SCIENCE 

MMPE  MINING,  METALLURGY  AND  PETROLEUM  ENGINEERING 

MUSIC  MUSIC 

NHS  NATURAL  HISTORY  SURVEY 

NS  NAVAL  SCIENCE 

NUCE  NUCLEAR  ENGINEERING 

CT  OCCUPATIONAL  THERAPY 

CIR  CFFICE  OF  INSTRUCTIONAL  RESOURCES 

PHIL  PHILCSCPHY 

PEM  PHYSICAL  EDUCATION  FOR  MEN  AND  GRAD"ATf  P£ 

PEW  PHYSICAL  EDUCATION  FOR  WOMEN 

PHYPLA  PHYSICAL  PLANT 

FHYCS  PHYSICS 

PHYSL  PHYSIOLOGY 

FLPA  PLANT  PATHOLOGY 

FOL3  POLITICAL  SCIENCE 

FCRT  PORTUGUESE 

PROVST  PROVOST'S  OFFICE 

FSYTRY  PSYCHIATRY 

PSYCH  PSYCHOLOGY 

FUR  PURCHASING  DIVISION 

RTV  RACIC  AND  TELEVISION 

REC  RECREATION 

RHET  RHETCRIC 

RSCC  RURAL  SOCIOLOGY 

RUSS  RUSSIAN 

RUSHIS  RUSSIAN  LANGUAGE  AND  ARE*  STUDIES 

SED  SAFETY  EDUCATION 

SHCBRC  SMALL  HOMES  COUNCIL,  BUREAU  OF  ,7ES  !  Df  NT  [  AL  CONSTRUCTION 

SOCS  SOCIAL  SCIENCES 

SOCW  SOCIAL  WORK 

SOC  SOCICLCGY 

SCONS  SOIL  CONSERVATION  SERVICE 

SPAN  SPANISH 

SPCH  SPEECH  AND  THEATRE 

CCONSV  STATE  DEPARTMENT  OF  CONSERVATION 

SGS  STATE  GEOLOGICAL  SURVEY 

SWS  STATE  WATER  SURVEY 

SSU  STATISTICAL  SERVICES  UNIT 

SCS  STUDENT  COUNSELING  SERVICE 

TCHRPL  TEACHER  PLACEMENT 

TAM  THEORETICAL  ANC  APPLIED  MECHANICS 

UNIHI  UNIVERSITY  HIGH  SCHOOL 

UIFOUN  UNIVERSITY  OF  ILLINOIS  FOUNDATION 

VAH  VETERINARY  ANATOMY  AND  HISTOLOGY 

VCM  VETERINARY  CLINICAL  MEDICINE 

VMS  VETERINARY  MEDICAL  SCIENCE 

VPH  VETERINARY  PATHOLOGY  AND  HYGIENE 

VPP  VETERINARY  PHYSIOLOGY  AND  PHARMACOLOGY 

VTED  VOCATIONAL  AND  TECHNICAL  EDUCATION 

WPGU  WPGU  RADIO  STATION 

200!.  20CLCGY 
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